Insert an empty line between two STG definitions in dump output.
[ghc.git] / compiler / stgSyn / CoreToStg.hs
index dc70851..e5954ab 100644 (file)
@@ -990,11 +990,11 @@ instance Functor LneM where
     fmap = liftM
 
 instance Applicative LneM where
-    pure = return
+    pure = returnLne
     (<*>) = ap
 
 instance Monad LneM where
-    return = returnLne
+    return = pure
     (>>=)  = thenLne
 
 instance MonadFix LneM where