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
No known key found for this signature in database
GPG Key ID: 220CD1C5BDEED020
1 changed files with 7 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/IO/File.hs
View File

@ -67,6 +67,8 @@ data FileOperation = FCopy DTInfoZipper DTInfoZipper
| None | None
runFileOp :: FileOperation -> IO () runFileOp :: FileOperation -> IO ()
runFileOp (FCopy from@(File {}, _) to) = copyFileToDir from to runFileOp (FCopy from@(File {}, _) to) = copyFileToDir from to
runFileOp (FCopy from@(Dir {}, _) to) = copyDir from to runFileOp (FCopy from@(Dir {}, _) to) = copyDir from to