allow underscores in arch names

Stops it barfing on arch(x86_64).
haskell · Mar 26, 2008 · 37fb5cd · 37fb5cd
1 parent c77ab79
commit 37fb5cd
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/Distribution/System.hs b/Distribution/System.hs
@@ -88,7 +88,8 @@ instance Text Arch where
   disp (OtherArch name) = Disp.text name
   disp other            = Disp.text (lowercase (show other))
 
-  parse = fmap classifyArch (Parse.munch1 Char.isAlphaNum)
+  parse = fmap classifyArch (Parse.munch1 isIdentChar)
+    where isIdentChar c = Char.isAlphaNum c || c == '_'
   --TODO: probably should disallow starting with a number
 
 classifyArch :: String -> Arch