github/semantic
1
1
Fork 0
mirror of https://github.com/github/semantic.git synced 2024-12-30 02:14:20 +03:00
Code Issues Projects Releases Wiki Activity

Correct the type of handleState.

Browse Source
This commit is contained in:
Rob Rix 2018-05-03 13:48:48 -04:00
parent aa4f630961
commit f35f9bbbc0
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/Control/Effect.hs
View File

@ -59,5 +59,5 @@ handleReader :: Effectful m => info -> m (Reader info ': effects) a -> m effects
handleReader = raiseHandler . flip runReader
-- | Run a 'State' effect in an 'Effectful' context.
handleState :: Effectful m => info -> m (State info ': effects) a -> m effects a
handleState :: Effectful m => state -> m (State state ': effects) a -> m effects (a, state)
handleState = raiseHandler . flip runState