projects
/
ghc-hetmet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Change the representation of the package database
[ghc-hetmet.git]
/
compiler
/
main
/
CmdLineParser.hs
diff --git
a/compiler/main/CmdLineParser.hs
b/compiler/main/CmdLineParser.hs
index
dfdea62
..
dfe756b
100644
(file)
--- a/
compiler/main/CmdLineParser.hs
+++ b/
compiler/main/CmdLineParser.hs
@@
-23,6
+23,8
@@
import Outputable
import Panic
import SrcLoc
import Panic
import SrcLoc
+import Data.List
+
data Flag m = Flag
{
flagName :: String, -- flag, without the leading -
data Flag m = Flag
{
flagName :: String, -- flag, without the leading -
@@
-118,7
+120,7
@@
findArg spec arg
= case [ (removeSpaces rest, optKind, flagDeprecated flag)
| flag <- spec,
let optKind = flagOptKind flag,
= case [ (removeSpaces rest, optKind, flagDeprecated flag)
| flag <- spec,
let optKind = flagOptKind flag,
- Just rest <- [maybePrefixMatch (flagName flag) arg],
+ Just rest <- [stripPrefix (flagName flag) arg],
arg_ok optKind rest arg ]
of
[] -> Nothing
arg_ok optKind rest arg ]
of
[] -> Nothing