Derive Functor/Applicative for Win32/Draw backend

Signed-off-by: Austin Seipp <austin@well-typed.com>
ghc · Sep 16, 2014 · 4a26c23 · 4a26c23
1 parent d62474e
commit 4a26c23
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/System/Console/Haskeline/Backend/Win32.hsc b/System/Console/Haskeline/Backend/Win32.hsc
@@ -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