From: Simon Marlow <simonmar@microsoft.com>
Date: Fri, 16 Jun 2006 11:02:58 +0000 (+0000)
Subject: remove duplicate way names (-debug -debug didn't work)
X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=commitdiff_plain;h=135a717c69397ab2f575191254f71faf805042de;ds=sidebyside

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

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: "  ++