X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=compiler%2Fmain%2FStaticFlags.hs;h=4f4fe6686929cf84566e184c2846d44517df0970;hb=046ee54f048ddd721dcee41916d6a6f68db3b15b;hp=9934e3eb0c5e208ea3504462aa9ce4c33c1b61ed;hpb=2ab65c00417e668f8a2a3f98fde51448dda83d6e;p=ghc-hetmet.git diff --git a/compiler/main/StaticFlags.hs b/compiler/main/StaticFlags.hs index 9934e3e..4f4fe66 100644 --- a/compiler/main/StaticFlags.hs +++ b/compiler/main/StaticFlags.hs @@ -76,11 +76,11 @@ import Util import Maybes ( firstJust ) import Panic ( GhcException(..), ghcError ) -import EXCEPTION ( throwDyn ) -import DATA_IOREF -import UNSAFE_IO ( unsafePerformIO ) -import Monad ( when ) -import Char ( isDigit ) +import Control.Exception ( throwDyn ) +import Data.IORef +import System.IO.Unsafe ( unsafePerformIO ) +import Control.Monad ( when ) +import Data.Char ( isDigit ) import Data.List ( sort, intersperse, nub ) ----------------------------------------------------------------------------- @@ -307,9 +307,6 @@ isStaticFlag f = "firrefutable-tuples", "fparallel", "fflatten", - "fsemi-tagging", - "flet-no-escape", - "femit-extern-decls", "fgransim", "fno-hi-version-check", "dno-black-holing",