Skip to content

Commit

Permalink
Update fs-sim/src/System/FS/Sim/FsTree.hs
Browse files Browse the repository at this point in the history
Co-authored-by: Joris Dral <[email protected]>
  • Loading branch information
recursion-ninja and jorisdral authored Dec 30, 2024
1 parent c5ffc9c commit 56132ca
Showing 1 changed file with 1 addition and 4 deletions.
5 changes: 1 addition & 4 deletions fs-sim/src/System/FS/Sim/FsTree.hs
Original file line number Diff line number Diff line change
Expand Up @@ -231,10 +231,7 @@ getDir fp =
Specific file system functions
-------------------------------------------------------------------------------}

-- | Open a file: create it if necessary or throw an error if either:
-- 1. It existed already while we were supposed to create it from scratch
-- (when passed 'MustBeNew').
-- 2. It did not already exists when we expected to (when passed 'MustExist').
-- | Open a file based on an 'AllowExisting'.
openFile :: Monoid a
=> FsPath -> AllowExisting -> FsTree a -> Either FsTreeError (FsTree a)
openFile fp ex = alterFile fp Left caseDoesNotExist caseAlreadyExist
Expand Down

0 comments on commit 56132ca

Please sign in to comment.