split into library + executables

1 files changed, 28 insertions, 0 deletions

diff --git a/src/Much/Utils.hs b/src/Much/Utils.hs
new file mode 100644
index 0000000..80615fc
--- /dev/null
+++ b/src/Much/Utils.hs
@@ -0,0 +1,28 @@
+module Much.Utils where
+
+import Control.Exception
+import System.Directory
+import System.IO
+
+
+withTempFile :: FilePath -> String -> ((FilePath, Handle) -> IO a) -> IO a
+withTempFile tmpdir template =
+    bracket (openTempFile tmpdir template) (removeFile . fst)
+
+
+mintercalate :: Monoid b => b -> [b] -> b
+mintercalate c (h:t) = foldl (\acc x -> acc <> c <> x) h t
+mintercalate _ [] = mempty
+
+
+padl :: Int -> a -> [a] -> [a]
+padl n c s =
+    if length s < n
+        then padl n c (c:s)
+        else s
+
+padr :: Int -> a -> [a] -> [a]
+padr n c s =
+    if length s < n
+        then padr n c (s ++ [c])
+        else s