import Test.HUnit
--- |Takes a list of strings, call them string1, string2, etc. and
--- numbers them like a list. So,
--- 1. string1
--- 2. string2
--- 3. etc.
+-- | Takes a list of strings, call them string1, string2, etc. and
+-- numbers them like a list. So,
+--
+-- 1. string1
+-- 2. string2
+-- 3. etc.
+--
listify :: [String] -> [String]
-listify items =
- zipWith (++) list_numbers items
+listify =
+ zipWith (++) list_numbers
where
list_numbers = map show_with_dot [1::Integer ..]
show_with_dot x = (show x) ++ ". "