Fix issue with sorting

This commit is contained in:
Filip Gralinski 2019-01-13 12:09:15 +01:00
parent b0c75cac3a
commit 4003715726

View File

@ -103,7 +103,7 @@ worstFeaturesPipeline reversed spec bbdo = rank (lessByMetric reversed $ gesMain
-- does not make sense at all) -- does not make sense at all)
forceSomeOrdering :: ResultOrdering -> ResultOrdering forceSomeOrdering :: ResultOrdering -> ResultOrdering
forceSomeOrdering FirstTheBest = FirstTheBest forceSomeOrdering FirstTheBest = FirstTheBest
forceSomeOrdering KeepTheOriginalOrder = FirstTheWorst forceSomeOrdering _ = FirstTheWorst
extractFeaturesAndPValues :: Monad m => GEvalSpecification -> BlackBoxDebuggingOptions -> ConduitT (Double, LineRecord) FeatureWithPValue (StateT Integer m) () extractFeaturesAndPValues :: Monad m => GEvalSpecification -> BlackBoxDebuggingOptions -> ConduitT (Double, LineRecord) FeatureWithPValue (StateT Integer m) ()
extractFeaturesAndPValues spec bbdo = extractFeaturesAndPValues spec bbdo =