1 files changed, 17 insertions, 0 deletions
diff --git a/contrib/haskell/src/Hkl/Utils.hs b/contrib/haskell/src/Hkl/Utils.hs
new file mode 100644
index 0000000..130db10
--- /dev/null
+++ b/contrib/haskell/src/Hkl/Utils.hs
@@ -0,0 +1,17 @@
+{-# LANGUAGE CPP #-}
+{-# LANGUAGE UnicodeSyntax #-}
+
+module Hkl.Utils
+    ( hasContent )
+    where
+
+import Data.Text (Text)
+import Data.Text.IO (writeFile)
+import System.Directory (createDirectoryIfMissing)
+import System.FilePath (takeDirectory)
+
+hasContent ∷ FilePath → Text → IO ()
+hasContent f c = do
+    createDirectoryIfMissing True (takeDirectory f)
+    Data.Text.IO.writeFile f c
+    print $ "--> created : " ++ f