diff options
Diffstat (limited to 'events/src/Events/Spec.hs')
-rw-r--r-- | events/src/Events/Spec.hs | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/events/src/Events/Spec.hs b/events/src/Events/Spec.hs index f0b1456..a4546f8 100644 --- a/events/src/Events/Spec.hs +++ b/events/src/Events/Spec.hs | |||
@@ -2,7 +2,7 @@ | |||
2 | 2 | ||
3 | module Events.Spec | 3 | module Events.Spec |
4 | ( interpret | 4 | ( interpret |
5 | , Spec, Expr(..), Elem(..) | 5 | , Spec, Expr(..), Val(..), Bindable(..), Elem(..) |
6 | , module Events.Spec.Parse | 6 | , module Events.Spec.Parse |
7 | , module Events.Spec.Eval | 7 | , module Events.Spec.Eval |
8 | ) where | 8 | ) where |
@@ -21,5 +21,5 @@ import qualified Data.Text as T | |||
21 | import Control.Monad.Catch (MonadThrow) | 21 | import Control.Monad.Catch (MonadThrow) |
22 | 22 | ||
23 | 23 | ||
24 | interpret :: MonadThrow m => Producer m Text -> Eval m () | 24 | interpret :: Monad m => Sink (Spec m) (Eval m) () |
25 | interpret source = evalExpr =<< lift (connect source parse) | 25 | interpret = maybe (lift mzero) (const interpret <=< lift . evalExpr) =<< await |