haskell-effectful/effectful
1
1
Fork 0
mirror of https://github.com/haskell-effectful/effectful.git synced 2024-11-27 01:45:16 +03:00
Code Issues Projects Releases Wiki Activity

Fix the FileSystem example

Browse Source
This commit is contained in:
Andrzej Rybczak 2021-07-13 13:27:50 +02:00
parent 5ec68161ed
commit 1b8a56b34b
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
examples/FileSystem.hs
View File

@ -16,7 +16,7 @@ import qualified System.IO as IO
import Effectful
import Effectful.Error
import Effectful.State
import Effectful.State.Local
-- | An effect for reading and writing files.
data FileSystem :: Effect where
@ -30,11 +30,11 @@ newtype FsError = FsError String
-- Operations
-- | Read contents of a file.
readFile :: FileSystem :> es => FilePath -> Eff es String
readFile :: (HasCallStack, FileSystem :> es) => FilePath -> Eff es String
readFile = send . ReadFile
-- | Write contents to a file.
writeFile :: FileSystem :> es => FilePath -> String -> Eff es ()
writeFile :: (HasCallStack, FileSystem :> es) => FilePath -> String -> Eff es ()
writeFile path = send . WriteFile path
----------------------------------------