From 8e92e6e11d2b3b0bfb5ac9d68f347219493e6380 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Kier=C3=A1n=20Meinhardt?= <kieran.meinhardt@gmail.com>
Date: Wed, 23 Sep 2020 17:44:40 +0200
Subject: split into library + executables

---
 Utils.hs | 28 ----------------------------
 1 file changed, 28 deletions(-)
 delete mode 100644 Utils.hs

(limited to 'Utils.hs')

diff --git a/Utils.hs b/Utils.hs
deleted file mode 100644
index a14be89..0000000
--- a/Utils.hs
+++ /dev/null
@@ -1,28 +0,0 @@
-module 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
-- 
cgit v1.2.3