X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=compiler%2Fmain%2FParsePkgConf.y;h=1f6434b468bc28df45e809a8ad8af9d41d96f274;hb=6b476a9ab73f1d768c548ddef900f9b9e4a0dd6b;hp=e29eb945f0e444397bf183d6707dd1c63af0bce0;hpb=046ee54f048ddd721dcee41916d6a6f68db3b15b;p=ghc-hetmet.git

diff --git a/compiler/main/ParsePkgConf.y b/compiler/main/ParsePkgConf.y
index e29eb94..1f6434b 100644
--- a/compiler/main/ParsePkgConf.y
+++ b/compiler/main/ParsePkgConf.y
@@ -1,10 +1,18 @@
 {
+{-# OPTIONS -w #-}
+-- The above warning supression flag is a temporary kludge.
+-- While working on this module you are encouraged to remove it and fix
+-- any warnings in the module. See
+--     http://hackage.haskell.org/trac/ghc/wiki/Commentary/CodingStyle#Warnings
+-- for details
+
 module ParsePkgConf( loadPackageConfig ) where
 
 #include "HsVersions.h"
 
 import PackageConfig
 import Lexer
+import Module
 import DynFlags
 import FastString
 import StringBuffer
@@ -75,27 +83,27 @@ field	:: { PackageConfig -> PackageConfig }
 		-- another case of license
 
 	| VARID '=' strlist		
-		{\p -> case unpackFS $1 of
-		        "exposedModules"    -> p{exposedModules    = $3}
-		        "hiddenModules"     -> p{hiddenModules     = $3}
-		        "importDirs"        -> p{importDirs        = $3}
-		        "libraryDirs"       -> p{libraryDirs       = $3}
-		        "hsLibraries"       -> p{hsLibraries       = $3}
-		        "extraLibraries"    -> p{extraLibraries    = $3}
-		        "extraGHCiLibraries"-> p{extraGHCiLibraries= $3}
-		        "includeDirs"       -> p{includeDirs       = $3}
-		        "includes"          -> p{includes          = $3}
-		        "hugsOptions"       -> p{hugsOptions       = $3}
-		        "ccOptions"         -> p{ccOptions         = $3}
-		        "ldOptions"         -> p{ldOptions         = $3}
-		        "frameworkDirs"     -> p{frameworkDirs     = $3}
-		        "frameworks"        -> p{frameworks        = $3}
-		        "haddockInterfaces" -> p{haddockInterfaces = $3}
-		        "haddockHTMLs"      -> p{haddockHTMLs      = $3}
-		        "depends"     	    -> p{depends = []}
-				-- empty list only, non-empty handled below
-			other -> p
-		}
+	{\p -> case unpackFS $1 of
+	        "exposedModules"    -> p{exposedModules    = map mkModuleNameFS $3}
+	        "hiddenModules"     -> p{hiddenModules     = map mkModuleNameFS $3}
+	        "importDirs"        -> p{importDirs        = map unpackFS $3}
+	        "libraryDirs"       -> p{libraryDirs       = map unpackFS $3}
+	        "hsLibraries"       -> p{hsLibraries       = map unpackFS $3}
+	        "extraLibraries"    -> p{extraLibraries    = map unpackFS $3}
+	        "extraGHCiLibraries"-> p{extraGHCiLibraries= map unpackFS $3}
+	        "includeDirs"       -> p{includeDirs       = map unpackFS $3}
+	        "includes"          -> p{includes          = map unpackFS $3}
+	        "hugsOptions"       -> p{hugsOptions       = map unpackFS $3}
+	        "ccOptions"         -> p{ccOptions         = map unpackFS $3}
+	        "ldOptions"         -> p{ldOptions         = map unpackFS $3}
+	        "frameworkDirs"     -> p{frameworkDirs     = map unpackFS $3}
+	        "frameworks"        -> p{frameworks        = map unpackFS $3}
+	        "haddockInterfaces" -> p{haddockInterfaces = map unpackFS $3}
+	        "haddockHTMLs"      -> p{haddockHTMLs      = map unpackFS $3}
+	        "depends"     	    -> p{depends = []}
+			-- empty list only, non-empty handled below
+		other -> p
+	}
 
 	| VARID '=' pkgidlist
 		{% case unpackFS $1 of
@@ -110,7 +118,8 @@ pkgid	:: { PackageIdentifier }
 
 version :: { Version }
 	: CONID '{' VARID '=' intlist ',' VARID '=' strlist '}'
-			{ Version{ versionBranch=$5, versionTags=$9 } }
+			{ Version{ versionBranch=$5, 
+                                   versionTags=map unpackFS $9 } }
 
 pkgidlist :: { [PackageIdentifier] }
 	: '[' pkgids ']'		{ $2 }
@@ -128,23 +137,23 @@ ints	:: { [Int] }
 	: INT				{ [ fromIntegral $1 ] }
 	| INT ',' ints			{ fromIntegral $1 : $3 }
 
-strlist :: { [String] }
+strlist :: { [FastString] }
         : '[' ']'			{ [] }
 	| '[' strs ']'			{ $2 }
 
-strs	:: { [String] }
-	: STRING			{ [ unpackFS $1 ] }
-	| STRING ',' strs 		{ unpackFS $1 : $3 }
+strs	:: { [FastString] }
+	: STRING			{ [ $1 ] }
+	| STRING ',' strs 		{ $1 : $3 }
 
 {
 happyError :: P a
 happyError = srcParseFail
 
-loadPackageConfig :: FilePath -> IO [PackageConfig]
-loadPackageConfig conf_filename = do
+loadPackageConfig :: DynFlags -> FilePath -> IO [PackageConfig]
+loadPackageConfig dflags conf_filename = do
    buf <- hGetStringBuffer conf_filename
    let loc  = mkSrcLoc (mkFastString conf_filename) 1 0
-   case unP parse (mkPState buf loc defaultDynFlags) of
+   case unP parse (mkPState buf loc dflags) of
 	PFailed span err -> 
            throwDyn (InstallationError (showSDoc (mkLocMessage span err)))