diff options
author | Gregor Kleen <pngwjpgh@users.noreply.github.com> | 2016-08-05 01:24:28 +0200 |
---|---|---|
committer | Gregor Kleen <pngwjpgh@users.noreply.github.com> | 2016-08-05 01:24:28 +0200 |
commit | 4a95e619dd206f9f3578d420500ee3824a413b33 (patch) | |
tree | 2c48c0c514486fe94d80c14121469bf50cb647b5 /events/src/Events/Spec/Parse.hs | |
parent | b16e56a555b37c5d0c01074b6c6a0dbcbb100bfe (diff) | |
download | events-4a95e619dd206f9f3578d420500ee3824a413b33.tar events-4a95e619dd206f9f3578d420500ee3824a413b33.tar.gz events-4a95e619dd206f9f3578d420500ee3824a413b33.tar.bz2 events-4a95e619dd206f9f3578d420500ee3824a413b33.tar.xz events-4a95e619dd206f9f3578d420500ee3824a413b33.zip |
Initial work on builtin constants
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 |