From bb16551cb8c68a7033f40d951f3bc6f6324fa8fc Mon Sep 17 00:00:00 2001
From: Tibo De Peuter <tibo.depeuter@ugent.be>
Date: Mon, 14 Nov 2022 18:25:38 +0100
Subject: [PATCH 1/2] #9 Polishing shuffle

---
 lib/Shuffle.hs | 11 ++++++++---
 1 file changed, 8 insertions(+), 3 deletions(-)

diff --git a/lib/Shuffle.hs b/lib/Shuffle.hs
index 6f349c6..c8a34cf 100644
--- a/lib/Shuffle.hs
+++ b/lib/Shuffle.hs
@@ -1,12 +1,18 @@
-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
@@ -19,6 +25,5 @@ generateIndices size = take size uniqueList
           uniqueList = nub randomList
 
 -- Generate a random generator
--- TODO Écht random maken?
 randomGen :: StdGen
 randomGen = mkStdGen seed

From b7f0b468921c293bb63ee5dde0b606ff16b76c56 Mon Sep 17 00:00:00 2001
From: tdpeuter <tibo.depeuter+hugit@gmail.com>
Date: Mon, 14 Nov 2022 19:24:04 +0100
Subject: [PATCH 2/2] revert bb16551cb8c68a7033f40d951f3bc6f6324fa8fc

revert #9 Polishing shuffle
---
 lib/Shuffle.hs | 11 +++--------
 1 file changed, 3 insertions(+), 8 deletions(-)

diff --git a/lib/Shuffle.hs b/lib/Shuffle.hs
index c8a34cf..6f349c6 100644
--- a/lib/Shuffle.hs
+++ b/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