Do not try being clever in case fold mapping

Author: Bodigrim

scripts/CaseFolding.hs

@@ -35,19 +35,12 @@ parseCF :: FilePath -> IO (Either ParseError CaseFolding)
 parseCF name = parse entries name <$> readFile name
 
 mapCF :: CaseFolding -> [String]
-mapCF (CF _ ms) = typ ++ map printUnusual ms' ++ map printUsual usual ++ [last]
+mapCF (CF _ ms) = typ ++ map printUnusual (filter (\f -> status f `elem` "CF") ms) ++ [last]
   where
-    ms' = filter p ms
-    p f = status f `elem` "CF" &&
-          mapping f /= [toLower (code f)]
-    unusual = map code ms'
-    usual = filter (\c -> toLower c /= c && c `notElem` unusual) [minBound..maxBound]
-
     typ = ["foldMapping :: Char# -> _ {- unboxed Int64 -}"
            ,"{-# NOINLINE foldMapping #-}"
            ,"foldMapping = \\case"]
     last = "  _ -> unI64 0"
     printUnusual c = "  -- " ++ name c ++ "\n" ++
              "  " ++ showC (code c) ++ "# -> unI64 "  ++ show (ord x + (ord y `shiftL` 21) + (ord z `shiftL` 42))
        where x:y:z:_ = mapping c ++ repeat '\0'
-    printUsual c = "  " ++ showC c ++ "# -> unI64 " ++ show (ord (toLower c))