From 7c84dce09f480189c9c0cd1d068ff98c2c1acdfe Mon Sep 17 00:00:00 2001 From: Julian Ospald Date: Fri, 18 Dec 2015 04:24:47 +0100 Subject: [PATCH] LIB: improve formatting style --- src/IO/File.hs | 12 +++++++----- 1 file changed, 7 insertions(+), 5 deletions(-) diff --git a/src/IO/File.hs b/src/IO/File.hs index e2dde6c..3b9f7a2 100644 --- a/src/IO/File.hs +++ b/src/IO/File.hs @@ -60,11 +60,13 @@ import qualified System.Directory as SD -- carried out via `doFile`. Useful to build up a list of operations -- or delay operations. data FileOperation = FCopy DTInfoZipper DTInfoZipper - | FMove FilePath FilePath - | FDelete DTInfoZipper - | FOpen DTInfoZipper - | FExecute DTInfoZipper [String] - | None + | FMove FilePath FilePath + | FDelete DTInfoZipper + | FOpen DTInfoZipper + | FExecute DTInfoZipper [String] + | None + + runFileOp :: FileOperation -> IO ()