Fix build on Windows: ghc-pkg/Main.hs needs ForeignFunctionInterface

[ghc-hetmet.git] / utils / ghc-pkg / Main.hs

diff --git a/utils/ghc-pkg/Main.hs b/utils/ghc-pkg/Main.hs
index bb836f0..4c68c2b 100644 (file)
--- a/utils/ghc-pkg/Main.hs
+++ b/utils/ghc-pkg/Main.hs
@@ -1,4 +1,4 @@
-{-# OPTIONS -fglasgow-exts -cpp #-}
+{-# LANGUAGE PatternGuards, CPP, ForeignFunctionInterface #-}
 -----------------------------------------------------------------------------
 --
 -- (c) The University of Glasgow 2004-2009.
@@ -1698,4 +1698,4 @@ readUTF8File file = do
 removeFileSafe :: FilePath -> IO ()
 removeFileSafe fn =
   removeFile fn `catch` \ e ->
-    when (not $ isDoesNotExistError e) $ ioError e
\ No newline at end of file
+    when (not $ isDoesNotExistError e) $ ioError e