withFile :: FileSystem -> Path -> IOMode -> (File -> IO a) -> IO a
withFile fs p m = bracket (open fs p m) (close fs)
withFile :: FileSystem -> Path -> IOMode -> (File -> IO a) -> IO a
withFile fs p m = bracket (open fs p m) (close fs)
withFile fs p m = bracket (open fs p m) (close fs)