Commit b469b308 authored by Herbert Valerio Riedel's avatar Herbert Valerio Riedel 🕺
Browse files

Minor fix of MonadFail instance for `ReadPrec`

This fixes the instance to be semantically cleaner but other than that
this fix has no practical consequences as the implementations of
`Monad(fail)` and `MonadFail(fail)` for `ReadP` coincide.
parent dafeb51f
......@@ -85,7 +85,7 @@ instance Monad ReadPrec where
P f >>= k = P (\n -> do a <- f n; let P f' = k a in f' n)
instance MonadFail.MonadFail ReadPrec where
fail s = P (\_ -> fail s)
fail s = P (\_ -> s)
instance MonadPlus ReadPrec
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