summaryrefslogtreecommitdiff
path: root/events/src/Events/Types/NDT.hs
diff options
context:
space:
mode:
authorGregor Kleen <pngwjpgh@users.noreply.github.com>2016-08-05 13:21:32 +0200
committerGregor Kleen <pngwjpgh@users.noreply.github.com>2016-08-05 13:21:32 +0200
commitf5311120a05081ee67de73057f1057e6f54b40e2 (patch)
tree11688cb6c0f28e3aa7a946c188b4fdf8f7b76433 /events/src/Events/Types/NDT.hs
parent10be4c21eba0c4df2d2cf03f2d5adb547fb08e0a (diff)
downloadevents-f5311120a05081ee67de73057f1057e6f54b40e2.tar
events-f5311120a05081ee67de73057f1057e6f54b40e2.tar.gz
events-f5311120a05081ee67de73057f1057e6f54b40e2.tar.bz2
events-f5311120a05081ee67de73057f1057e6f54b40e2.tar.xz
events-f5311120a05081ee67de73057f1057e6f54b40e2.zip
formulate interpret as a Sink
Diffstat (limited to 'events/src/Events/Types/NDT.hs')
-rw-r--r--events/src/Events/Types/NDT.hs4
1 files changed, 4 insertions, 0 deletions
diff --git a/events/src/Events/Types/NDT.hs b/events/src/Events/Types/NDT.hs
index f6d3000..848ad39 100644
--- a/events/src/Events/Types/NDT.hs
+++ b/events/src/Events/Types/NDT.hs
@@ -24,6 +24,7 @@ import Control.Monad.Identity
24import Control.Monad.Trans 24import Control.Monad.Trans
25import Control.Monad.Reader (MonadReader(..)) 25import Control.Monad.Reader (MonadReader(..))
26import Control.Monad.Trans.Maybe 26import Control.Monad.Trans.Maybe
27import Control.Monad.Catch (MonadThrow(..))
27 28
28import Debug.Trace 29import Debug.Trace
29 30
@@ -72,6 +73,9 @@ instance MonadReader r m => MonadReader r (NDT m) where
72instance MonadIO m => MonadIO (NDT m) where 73instance MonadIO m => MonadIO (NDT m) where
73 liftIO = lift . liftIO 74 liftIO = lift . liftIO
74 75
76instance MonadThrow m => MonadThrow (NDT m) where
77 throwM = lift . throwM
78
75empty :: Applicative m => NDT m a 79empty :: Applicative m => NDT m a
76empty = NDTCons $ pure Nothing 80empty = NDTCons $ pure Nothing
77 81