revert bb16551cb8

revert #9 Polishing shuffle

lib/Shuffle.hs

@@ -1,18 +1,12 @@
-module Shuffle
-( shuffle
+module Shuffle (
+    shuffle
 ) where
 
 import Data.List
 import System.Random
 
------------------------------ Constants ------------------------------
-
--- The seed used to generate random numbers.
-seed :: Int
 seed = 20
 
-----------------------------------------------------------------------
-
 -- Shuffle a list of values.
 shuffle :: [a] -> [a]
 shuffle l = map (l !!) $ generateIndices $ length l
@@ -25,5 +19,6 @@ generateIndices size = take size uniqueList
           uniqueList = nub randomList
 
 -- Generate a random generator
+-- TODO Écht random maken?
 randomGen :: StdGen
 randomGen = mkStdGen seed