X-Git-Url: https://gitweb.michael.orlitzky.com/?a=blobdiff_plain;f=src%2FListUtils.hs;fp=src%2FListUtils.hs;h=0000000000000000000000000000000000000000;hb=e1d16438b44ecd962565756a828c9ed8014cf894;hp=5ec9120fc57384933e64719cba14206d851e8818;hpb=909e781852e3566fcaa16e156437ebe5bfc89e02;p=hath.git

diff --git a/src/ListUtils.hs b/src/ListUtils.hs
deleted file mode 100644
index 5ec9120..0000000
--- a/src/ListUtils.hs
+++ /dev/null
@@ -1,37 +0,0 @@
-module ListUtils
-( pad_left_to,
-  pad_right_to,
-  splitWith
-) where
-
-
--- Stolen from ByteString. Splits a list at each element satisfying
--- the predicate p.
-splitWith :: (a -> Bool) -> [a] -> [[a]]
-splitWith p xs =
-    ys : case zs of
-           []   -> []
-           _:ws -> splitWith p ws
-    where (ys,zs) = break p xs
-
-
--- Pads a list (on the left) to length len by prepending pad_elem.
-pad_left_to :: Int -> a -> [a] -> [a]
-pad_left_to len pad_elem xs =
-     if (length xs) >= len then
-         xs
-     else
-         (replicate padcount pad_elem) ++ xs
-         where
-           padcount = len - (length xs)
-
-
--- Pads a list (on the right) to length len by appending pad_elem.
-pad_right_to :: Int -> a -> [a] -> [a]
-pad_right_to len pad_elem xs =
-     if (length xs) >= len then
-         xs
-     else
-         xs ++ (replicate padcount pad_elem)
-         where
-           padcount = len - (length xs)