Commit 64bd00ec authored by Ian Lynagh's avatar Ian Lynagh
Browse files

Use maybePrefixMatch in StaticFlags rather than redefining it ourselves

parent d992bfc8
......@@ -251,7 +251,7 @@ lookUp sw = sw `elem` packed_static_opts
-- (lookup_str "foo") looks for the flag -foo=X or -fooX,
-- and returns the string X
lookup_str sw
= case firstJust (map (startsWith sw) staticFlags) of
= case firstJust (map (maybePrefixMatch sw) staticFlags) of
Just ('=' : str) -> Just str
Just str -> Just str
Nothing -> Nothing
......@@ -451,19 +451,6 @@ isStaticFlag f =
"funfolding-keeness-factor"
]
-- Misc functions for command-line options
startsWith :: String -> String -> Maybe String
-- startsWith pfx (pfx++rest) = Just rest
startsWith [] str = Just str
startsWith (c:cs) (s:ss)
= if c /= s then Nothing else startsWith cs ss
startsWith _ [] = Nothing
-----------------------------------------------------------------------------
-- convert sizes like "3.5M" into integers
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment