diff options
Diffstat (limited to 'events/src/Events/Spec/Parse.hs')
-rw-r--r-- | events/src/Events/Spec/Parse.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/events/src/Events/Spec/Parse.hs b/events/src/Events/Spec/Parse.hs index 912a308..f3114f1 100644 --- a/events/src/Events/Spec/Parse.hs +++ b/events/src/Events/Spec/Parse.hs | |||
@@ -18,7 +18,7 @@ import Events.Spec.Types | |||
18 | import Control.Monad.Catch (MonadThrow) | 18 | import Control.Monad.Catch (MonadThrow) |
19 | 19 | ||
20 | parse :: MonadThrow m => Consumer Text m (Spec m) | 20 | parse :: MonadThrow m => Consumer Text m (Spec m) |
21 | parse = sinkParser $ (tokenize >>= pSpec) <* endOfInput | 21 | parse = sinkParser $ pSpec <* endOfInput |
22 | 22 | ||
23 | pSpec :: Monad m => Parser (Spec m) | 23 | pSpec :: Monad m => Parser (Spec m) |
24 | pSpec = mzero | 24 | pSpec = mzero |