[commit: haskeline] master: Typo fix in type synonym. (9b0cf9d)

[Paolo Capriotti]

Repository : ssh://darcs.haskell.org//srv/darcs/packages/haskeline

On branch  : master

http://hackage.haskell.org/trac/ghc/changeset/9b0cf9d96b407f48eaf40e4b0e71a86bf0fef738

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

commit 9b0cf9d96b407f48eaf40e4b0e71a86bf0fef738
Author: Judah Jacobson <judah.jacobson at gmail.com>
Date:   Wed Jul 18 18:48:15 2012 +0000

    Typo fix in type synonym.

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

 System/Console/Haskeline/Backend/Win32.hsc |    2 +-
 1 files changed, 1 insertions(+), 1 deletions(-)

diff --git a/System/Console/Haskeline/Backend/Win32.hsc b/System/Console/Haskeline/Backend/Win32.hsc
index d6cb56e..8b84d83 100644
--- a/System/Console/Haskeline/Backend/Win32.hsc
+++ b/System/Console/Haskeline/Backend/Win32.hsc
@@ -254,7 +254,7 @@ closeHandles hs = closeHandle (hIn hs) >> closeHandle (hOut hs)
 newtype Draw m a = Draw {runDraw :: ReaderT Handles m a}
     deriving (Monad,MonadIO,MonadException, MonadReader Handles)
 
-type DrawM a = (MonadIO m, MonadReader Layout m) => Draw m ()
+type DrawM a = (MonadIO m, MonadReader Layout m) => Draw m a
 
 instance MonadTrans Draw where
     lift = Draw . lift