Prserve case when parsing unknown/other enum values for OS,Arch and C…

…ompiler
haskell · Mar 24, 2008 · ada6097 · ada6097
1 parent 941bede
commit ada6097
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 3 deletions.
diff --git a/Distribution/Compiler.hs b/Distribution/Compiler.hs
@@ -81,7 +81,7 @@ classifyCompilerFlavor :: String -> CompilerFlavor
 classifyCompilerFlavor s =
   case lookup (lowercase s) compilerMap of
     Just compiler -> compiler
-    Nothing       -> OtherCompiler (lowercase s)
+    Nothing       -> OtherCompiler s
   where
     compilerMap = [ (display compiler, compiler)
                   | compiler <- knownCompilerFlavors ]

diff --git a/Distribution/System.hs b/Distribution/System.hs
@@ -48,7 +48,7 @@ classifyOS :: String -> OS
 classifyOS s =
   case lookup (lowercase s) osMap of
     Just os -> os
-    Nothing -> OtherOS (lowercase s)
+    Nothing -> OtherOS s
   where
     osMap = [ (name, os)
             | os <- knownOSs
@@ -95,7 +95,7 @@ classifyArch :: String -> Arch
 classifyArch s =
   case lookup (lowercase s) archMap of
     Just arch -> arch
-    Nothing   -> OtherArch (lowercase s)
+    Nothing   -> OtherArch s
   where
     archMap = [ (name, arch)
               | arch <- knownArches