@@ -32,14 +32,14 @@ instance Exception FsError
32-- Operations
32-- Operations
34-- | Read contents of a file.
34-- | Read contents of a file.
35−readFile :: (FileSystem :> es, Error FsError :> es) => FilePath -> String -> Eff es ()
35+readFile :: (FileSystem :> es, Error FsError :> es) => FilePath -> Eff es String
36−readFile path contents = stateEffectM $ \FileSystem{..} -> do
36+readFile path = readerEffectM $ \FileSystem{..} -> _readFile _fs path
37− fs <- _writeFile _fs path contents
38− pure ((), FileSystem { _fs = fs, .. })
40-- | Write contents to a file.
38-- | Write contents to a file.
41−writeFile :: (FileSystem :> es, Error FsError :> es) => FilePath -> Eff es String
39+writeFile :: (FileSystem :> es, Error FsError :> es) => FilePath -> String -> Eff es ()
42−writeFile path = readerEffectM $ \FileSystem{..} -> _readFile _fs path
40+writeFile path contents = stateEffectM $ \FileSystem{..} -> do
41+ fs <- _writeFile _fs path contents
42+ pure ((), FileSystem { _fs = fs, .. })
44----------------------------------------
44----------------------------------------
45-- Handlers
45-- Handlers