diff options
| author | Vladislav Zavialov <vlad.z.4096@gmail.com> | 2019-10-07 13:57:59 +0300 |
|---|---|---|
| committer | Marge Bot <ben+marge-bot@smart-cactus.org> | 2019-10-30 07:36:50 -0400 |
| commit | 3e7569bcd4a88ba45d2c40b0904c587c2edf4972 (patch) | |
| tree | 26fb12e13649adebffd4aa11fe33c51fc68ce28e /testsuite/tests/simplCore | |
| parent | 93ff91978be67920c7e3657c077ca14c5d6c09bc (diff) | |
| download | haskell-3e7569bcd4a88ba45d2c40b0904c587c2edf4972.tar.gz | |
Whitespace forward compatibility for proposal #229
GHC Proposal #229 changes the lexical rules of Haskell, which may
require slight whitespace adjustments in certain cases.
This patch changes formatting in a few places in GHC and its testsuite
in a way that enables it to compile under the proposed rules.
Diffstat (limited to 'testsuite/tests/simplCore')
| -rw-r--r-- | testsuite/tests/simplCore/should_run/T3591.hs | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/testsuite/tests/simplCore/should_run/T3591.hs b/testsuite/tests/simplCore/should_run/T3591.hs index 6b2b23b2ba..fc49c00cdb 100644 --- a/testsuite/tests/simplCore/should_run/T3591.hs +++ b/testsuite/tests/simplCore/should_run/T3591.hs @@ -83,7 +83,7 @@ instance Monad Identity where m >>= k = k (runIdentity m) newtype Trampoline m s r = Trampoline {bounce :: m (TrampolineState m s r)} -data TrampolineState m s r = Done r | Suspend! (s (Trampoline m s r)) +data TrampolineState m s r = Done r | Suspend !(s (Trampoline m s r)) instance (Monad m, Functor s) => Functor (Trampoline m s) where fmap = liftM @@ -101,11 +101,11 @@ instance (Monad m, Functor s) => Monad (Trampoline m s) where instance (Monad m, Functor s) => MonadFail (Trampoline m s) where fail = error -data Yield x y = Yield! x y +data Yield x y = Yield !x y instance Functor (Yield x) where fmap f (Yield x y) = trace "fmap yield" $ Yield x (f y) -data Await x y = Await! (x -> y) +data Await x y = Await !(x -> y) instance Functor (Await x) where fmap f (Await g) = trace "fmap await" $ Await (f . g) |