Commit bf1a30ff authored by judah's avatar judah
Browse files

Merge pull request #11 from hvr/pr-forall

Use explicit forall syntax to avoid warning
parents 92953323 fe08e896
......@@ -262,7 +262,7 @@ closeHandles hs = closeHandle (hIn hs) >> closeHandle (hOut hs)
newtype Draw m a = Draw {runDraw :: ReaderT Handles m a}
deriving (Functor, Applicative, Monad, MonadIO, MonadException, MonadReader Handles)
type DrawM a = (MonadIO m, MonadReader Layout m) => Draw m a
type DrawM a = forall m . (MonadIO m, MonadReader Layout m) => Draw m a
instance MonadTrans Draw where
lift = Draw . lift
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