Insert an empty line between two STG definitions in dump output.

[ghc.git] / compiler / stgSyn / CoreToStg.hs

diff --git a/compiler/stgSyn/CoreToStg.hs b/compiler/stgSyn/CoreToStg.hs
index d76f256..e5954ab 100644 (file)
--- a/compiler/stgSyn/CoreToStg.hs
+++ b/compiler/stgSyn/CoreToStg.hs
@@ -579,7 +579,8 @@ coreToStgApp _ f args ticks = do
                                     StgOpApp (StgPrimOp op) args' res_ty
 
                 -- A call to some primitive Cmm function.
-                FCallId (CCall (CCallSpec (StaticTarget lbl (Just pkgId) True) PrimCallConv _))
+                FCallId (CCall (CCallSpec (StaticTarget _ lbl (Just pkgId) True)
+                                          PrimCallConv _))
                                  -> ASSERT( saturated )
                                     StgOpApp (StgPrimCallOp (PrimCall lbl pkgId)) args' res_ty
 
@@ -989,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