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