Commit 135a717c authored by Simon Marlow's avatar Simon Marlow

remove duplicate way names (-debug -debug didn't work)

parent b1953bbb
......@@ -85,7 +85,7 @@ import DATA_IOREF
import UNSAFE_IO ( unsafePerformIO )
import Monad ( when )
import Char ( isDigit )
import List ( sort, intersperse )
import Data.List ( sort, intersperse, nub )
-----------------------------------------------------------------------------
-- Static flags
......@@ -458,7 +458,7 @@ allowed_combination way = and [ x `allowedWith` y
findBuildTag :: IO [String] -- new options
findBuildTag = do
way_names <- readIORef v_Ways
let ws = sort way_names
let ws = sort (nub way_names)
if not (allowed_combination ws)
then throwDyn (CmdLineError $
"combination not supported: " ++
......
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