lexi-lambda/freer-simple
1
1
Fork 0
mirror of https://github.com/lexi-lambda/freer-simple.git synced 2024-12-23 14:12:45 +03:00
Code Issues Projects Releases Wiki Activity

Fixed one errant runState use

Browse Source
This commit is contained in:
Justus Adam 2018-02-08 14:25:53 +01:00 committed by Alexis King
parent dedbacec57
commit db512cc9f5
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/Monad/Freer.hs
View File

@ -84,7 +84,7 @@ implemented in-memory in terms of 'Control.Monad.Freer.State.State'. With
@
runInMemoryFileSystem :: [('FilePath', 'String')] -> 'Eff' (FileSystem ': effs) '~>' 'Eff' effs
runInMemoryFileSystem initVfs = 'Control.Monad.Freer.State.runState' initVfs '.' fsToState where
runInMemoryFileSystem initVfs = 'Control.Monad.Freer.State.evalState' initVfs '.' fsToState where
fsToState :: 'Eff' (FileSystem ': effs) '~>' 'Eff' ('Control.Monad.Freer.State.State' [('FilePath', 'String')] ': effs)
fsToState = 'reinterpret' '$' \case
ReadFile path -> 'Control.Monad.Freer.State.get' '>>=' \\vfs -> case 'lookup' path vfs of