Move module location

Alea/Diceware.hs

@@ -1,7 +1,7 @@
-module Diceware where
+module Alea.Diceware where
 
 import qualified Data.Map as Map
-import List
+import Alea.List
 
 -- Diceware dictionary type
 type Diceware = Map.Map Int String

Alea/List.hs

@@ -1,16 +1,16 @@
-module List where
+module Alea.List where
 
 -- Remove the nth element of a list. (0-indexed)
 -- RemoveAt 2 "abc" == ('c', "ab")
 removeAt :: Int -> [a] -> (a, [a])
 removeAt n xs = (xs !! n, take n xs ++ drop (n+1) xs)
 
--- Split a string into a list of strings
+-- Split a list into a list of lists
 -- ex. split "ab,cd,ef" ',' == ["ab","cd","ef"]
-split :: String -> Char -> [String]
+split :: (Eq a) => [a] -> a -> [[a]]
-split [] _ = [""]
+split [] _ = [[]]
 split (c:cs) delim
-	| c == delim = "" : rest
+	| c == delim = [] : rest
 	| otherwise = (c : head rest) : tail rest
 	where
 		rest = split cs delim

Alea/Random.hs

@@ -1,7 +1,7 @@
-module Random where
+module Alea.Random where
 
 import System.Random
-import List
+import Alea.List
 
 -- Get n random numbers from the list ys
 randPick :: (Eq a, RandomGen g) => [a] -> Int -> g -> ([a], g)