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 <[email protected]> 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 _______________________________________________ Cvs-libraries mailing list [email protected] http://www.haskell.org/mailman/listinfo/cvs-libraries
