hasufell/hsfm
1
1
Fork 0
Code Issues 33 Pull Requests Releases Wiki Activity

LIB: improve formatting style

Browse Source
This commit is contained in:
Julian Ospald
2015-12-18 04:24:47 +01:00
parent 94095ec28b
commit 7c84dce09f
1 changed files with 7 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
src/IO/File.hs
View File

@@ -60,11 +60,13 @@ import qualified System.Directory as SD
-- carried out via `doFile`. Useful to build up a list of operations -- carried out via `doFile`. Useful to build up a list of operations
-- or delay operations. -- or delay operations.
data FileOperation = FCopy DTInfoZipper DTInfoZipper data FileOperation = FCopy DTInfoZipper DTInfoZipper
| FMove FilePath FilePath | FMove FilePath FilePath
| FDelete DTInfoZipper | FDelete DTInfoZipper
| FOpen DTInfoZipper | FOpen DTInfoZipper
| FExecute DTInfoZipper [String] | FExecute DTInfoZipper [String]
| None | None
runFileOp :: FileOperation -> IO () runFileOp :: FileOperation -> IO ()