Commit 0c3e42b7 authored by Ian Lynagh's avatar Ian Lynagh
Browse files

Make the Parser Monad's return strict

parent bf1cff98
......@@ -1410,7 +1410,7 @@ instance Monad P where
fail = failP
returnP :: a -> P a
returnP a = P $ \s -> POk s a
returnP a = a `seq` (P $ \s -> POk s a)
thenP :: P a -> (a -> P b) -> P b
(P m) `thenP` k = P $ \ s ->
......
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