Commit 4a26c23c authored by Austin Seipp's avatar Austin Seipp
Browse files

Derive Functor/Applicative for Win32/Draw backend



Signed-off-by: default avatarAustin Seipp <austin@well-typed.com>
parent d62474ef
......@@ -260,7 +260,7 @@ closeHandles :: Handles -> IO ()
closeHandles hs = closeHandle (hIn hs) >> closeHandle (hOut hs)
newtype Draw m a = Draw {runDraw :: ReaderT Handles m a}
deriving (Monad,MonadIO,MonadException, MonadReader Handles)
deriving (Functor, Applicative, Monad, MonadIO, MonadException, MonadReader Handles)
type DrawM a = (MonadIO m, MonadReader Layout m) => Draw m a
......
Supports Markdown
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