[project @ 2004-12-02 16:33:16 by simonpj]

[ghc-hetmet.git] / ghc / compiler / main / Packages.lhs

diff --git a/ghc/compiler/main/Packages.lhs b/ghc/compiler/main/Packages.lhs
index a4b34a3..fc03e86 100644 (file)
--- a/ghc/compiler/main/Packages.lhs
+++ b/ghc/compiler/main/Packages.lhs
@@ -64,6 +64,11 @@ import Data.Maybe    ( fromJust, isNothing )
 import System.Directory        ( doesFileExist )
 import Control.Monad   ( when, foldM )
 import Data.List       ( nub, partition )
+
+#ifdef mingw32_TARGET_OS
+import Data.List       ( isPrefixOf )
+#endif
+
 import FastString
 import DATA_IOREF
 import EXCEPTION       ( throwDyn )