From 4003715726a58cba2cad7c2295c569e139af7cef Mon Sep 17 00:00:00 2001
From: Filip Gralinski <filipg@amu.edu.pl>
Date: Sun, 13 Jan 2019 12:09:15 +0100
Subject: [PATCH] Fix issue with sorting

---
 src/GEval/LineByLine.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/GEval/LineByLine.hs b/src/GEval/LineByLine.hs
index 9e435c5..d86eb69 100644
--- a/src/GEval/LineByLine.hs
+++ b/src/GEval/LineByLine.hs
@@ -103,7 +103,7 @@ worstFeaturesPipeline reversed spec bbdo = rank (lessByMetric reversed $ gesMain
 -- does not make sense at all)
 forceSomeOrdering :: ResultOrdering -> ResultOrdering
 forceSomeOrdering FirstTheBest = FirstTheBest
-forceSomeOrdering KeepTheOriginalOrder = FirstTheWorst
+forceSomeOrdering _ = FirstTheWorst
 
 extractFeaturesAndPValues :: Monad m => GEvalSpecification -> BlackBoxDebuggingOptions -> ConduitT (Double, LineRecord) FeatureWithPValue (StateT Integer m) ()
 extractFeaturesAndPValues spec bbdo =