jtdaugherty/brick
1
1
Fork 0
mirror of https://github.com/jtdaugherty/brick.git synced 2024-12-04 17:36:43 +03:00
Code Issues Projects Releases Wiki Activity

Merge pull request #30 from AndrewRademacher/master

Browse Source 
Reinstate MonadIO instance for EventM
This commit is contained in:
Jonathan Daugherty 2015-12-21 11:04:13 -10:00
commit d7a717e313
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
src/Brick/Types.hs
View File

@ -76,6 +76,7 @@ import Graphics.Vty (Event, Image, emptyImage, Attr)
import Data.Default (Default(..)) import Data.Default (Default(..))
import Data.Functor.Contravariant import Data.Functor.Contravariant
import qualified Data.Map as M import qualified Data.Map as M
import Control.Monad.IO.Class
import Brick.Types.TH import Brick.Types.TH
import Brick.Types.Internal import Brick.Types.Internal
@ -116,7 +117,7 @@ handleEventLensed v target ev = do
newtype EventM a = newtype EventM a =
EventM { runEventM :: ReaderT (M.Map Name Viewport) (StateT EventState IO) a EventM { runEventM :: ReaderT (M.Map Name Viewport) (StateT EventState IO) a
} }
deriving (Functor, Applicative, Monad) deriving (Functor, Applicative, Monad, MonadIO)
-- | Widget growth policies. These policies communicate to layout -- | Widget growth policies. These policies communicate to layout
-- algorithms how a widget uses space when being rendered. These -- algorithms how a widget uses space when being rendered. These