formatting

src/HushGP/Genome.hs

@@ -1,11 +1,11 @@
 module HushGP.Genome where
 
-import HushGP.State
-import HushGP.Utility
-import Data.Map qualified as Map
 import Data.List
 import Data.List.Split
+import Data.Map qualified as Map
 import HushGP.Instructions.Opens
+import HushGP.State
+import HushGP.Utility
 
 -- | Makes a random plushy from variables in a passed argMap and
 --  a passed list of instructions.

src/HushGP/PushTests.hs

@@ -1,9 +1,9 @@
-module HushGP.PushTests
+module HushGP.PushTests where
+
 -- ( module HushGP.PushTests.GenericTests,
 -- module HushGP.PushTests.IntTests,
 -- module HushGP.PushTests.UtilTests,
 -- )
-where
 
 -- import HushGP.PushTests.GenericTests
 -- import HushGP.PushTests.IntTests

src/HushGP/State.hs

@@ -21,8 +21,8 @@ data Gene
   | GeneVectorBool [Bool]
   | GeneVectorString [String]
   | GeneVectorChar [Char]
-  -- |State -> State is the function itself. String stores the name of the function.
-  | StateFunc (State -> State, String)
+  | -- | State -> State is the function itself. String stores the name of the function.
+    StateFunc (State -> State, String)
   | PlaceInput String
   | Close
   | Open Int

src/HushGP/Utility.hs

@@ -1,8 +1,8 @@
 module HushGP.Utility where
 
+import Control.Monad
 import HushGP.State
 import System.Random
-import Control.Monad
 
 -- | Generates a single random instruction from a list of instructions.
 randomInstruction :: [Gene] -> IO Gene