Stupid workaround for a bug

Because character set comparison is partial, sort doesn't always work. For now use a silly hack.
lierdakil · Aug 4, 2023 · 71752b0 · 71752b0
1 parent d8d7a3e
commit 71752b0
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/lib/Lexer/Build.hs b/lib/Lexer/Build.hs
@@ -59,7 +59,7 @@ sortCharPatterns = sortBy (cmp `on` fst)
     cmp a b | bina && ainb = EQ
             | bina = GT
             | ainb = LT
-            | otherwise = EQ
+            | otherwise = compare (length a) (length b)
       where ainb = contains' b a
             bina = contains' a b
     contains' a b = all (\bi -> any (`containsCR` bi) (NE.toList a)) (NE.toList b)