template-haskell: set explicit return=pure
authorHerbert Valerio Riedel <hvr@gnu.org>
Sun, 18 Oct 2015 09:53:23 +0000 (11:53 +0200)
committerHerbert Valerio Riedel <hvr@gnu.org>
Sun, 18 Oct 2015 09:53:23 +0000 (11:53 +0200)
This fixups a thinko in c6781a5064049e0a7c17c1f2239567a3c44955af

libraries/template-haskell/Language/Haskell/TH/PprLib.hs
libraries/template-haskell/Language/Haskell/TH/Syntax.hs

index e398094..1a99207 100644 (file)
@@ -158,6 +158,7 @@ instance Applicative PprM where
       (<*>) = ap
 
 instance Monad PprM where
+    return = pure
     m >>= k  = PprM $ \s -> let (x, s') = runPprM m s
                             in runPprM (k x) s'
 
index 607e6da..4d30a9d 100644 (file)
@@ -161,6 +161,7 @@ runQ (Q m) = m
 instance Monad Q where
   Q m >>= k  = Q (m >>= \x -> unQ (k x))
   (>>) = (*>)
+  return     = pure
   fail s     = report True s >> Q (fail "Q monad failure")
 
 instance Functor Q where