ormolu and threadscope

flake.nix

@@ -52,7 +52,7 @@
 
             # Programs you want to make available in the shell.
             # Default programs can be disabled by setting to 'null'
-            # tools = hp: { fourmolu = hp.fourmolu; ghcid = null; };
+            tools = hp: { ormolu = hp.ormolu; threadscope = hp.threadscope; };
 
             # Check that haskell-language-server works
             # hlsCheck.enable = true; # Requires sandbox to be disabled

src/HushGP/GP.hs

@@ -58,6 +58,7 @@ gpLoop' pushArgs generation evaluations population indexedTrainingData = do
           print "Incomplete Run, saving the best so far."
         | otherwise = gpLoop' pushArgs (succ generation)
             (evaluations + (populationSize pushArgs * length (fst $ trainingData pushArgs)) + (if generation `mod` downsampleParentsGens pushArgs == 0 then length parentReps * (length (fst indexedTrainingData) - length (fst $ trainingData pushArgs)) else 0) + (if bestIndPassesDownsample then length (fst indexedTrainingData) - length (fst $ trainingData pushArgs) else 0))
+            (if elitism then )
   nextAction
   where
     -- \| This will have downsampling added to it later.
@@ -77,4 +78,4 @@ gpLoop' pushArgs generation evaluations population indexedTrainingData = do
     bestIndPassesDownsample = False -- TODO: fix this later
     epsilonPushArgs :: PushArgs
     epsilonPushArgs = pushArgs {epsilons = Nothing} -- TODO: And this
-gpLoop' _ _ _ _ _ = error "How did this happen?"
+--gpLoop' _ _ _ _ _ = error "How did this happen?"