Commit d6d421c1 authored by Herbert Valerio Riedel's avatar Herbert Valerio Riedel 🕺

template-haskell: set explicit return=pure

This fixups a thinko in c6781a50
parent 1e34f621
......@@ -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'
......
......@@ -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
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment