From 135a717c69397ab2f575191254f71faf805042de Mon Sep 17 00:00:00 2001 From: Simon Marlow Date: Fri, 16 Jun 2006 11:02:58 +0000 Subject: [PATCH] remove duplicate way names (-debug -debug didn't work) --- compiler/main/StaticFlags.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/compiler/main/StaticFlags.hs b/compiler/main/StaticFlags.hs index 8843bc6..3e9737f 100644 --- a/compiler/main/StaticFlags.hs +++ b/compiler/main/StaticFlags.hs @@ -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: " ++ -- 1.7.10.4