Separate module for file-related utilities

1 files changed, 25 insertions, 0 deletions

diff --git a/src/FileUtils.hs b/src/FileUtils.hs
new file mode 100644
index 0000000..d147b7c
--- /dev/null
+++ b/src/FileUtils.hs
@@ -0,0 +1,25 @@
+module FileUtils where
+
+import Control.Monad
+
+import System.FilePath
+import System.Directory
+
+
+copyRecursive :: FilePath -> FilePath -> IO ()
+copyRecursive from to = do
+    doesDirectoryExist from >>= \case
+        False -> do
+            copyFile from to
+        True -> do
+            createDirectory to
+            content <- listDirectory from
+            forM_ content $ \name -> do
+                copyRecursive  (from </> name) (to </> name)
+
+copyRecursiveForce :: FilePath -> FilePath -> IO ()
+copyRecursiveForce from to = do
+    doesDirectoryExist to >>= \case
+        False -> return ()
+        True  -> removeDirectoryRecursive to
+    copyRecursive from to