[commit: packages/haskeline] master: Derive Functor/Applicative for Win32/Draw backend (4a26c23)

[git at git.haskell.org]

Repository : ssh://git@git.haskell.org/haskeline

On branch  : master
Link       : http://git.haskell.org/packages/haskeline.git/commitdiff/4a26c23c49583142648b4e60ad2fd450a70731e2

>---------------------------------------------------------------

commit 4a26c23c49583142648b4e60ad2fd450a70731e2
Author: Austin Seipp <austin at well-typed.com>
Date:   Tue Sep 16 07:49:18 2014 -0500

    Derive Functor/Applicative for Win32/Draw backend
    
    Signed-off-by: Austin Seipp <austin at well-typed.com>


>---------------------------------------------------------------

4a26c23c49583142648b4e60ad2fd450a70731e2
 System/Console/Haskeline/Backend/Win32.hsc | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/System/Console/Haskeline/Backend/Win32.hsc b/System/Console/Haskeline/Backend/Win32.hsc
index 4447519..8dd626f 100644
--- 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