Follow Cabal changes
authorIan Lynagh <igloo@earth.li>
Sun, 29 Jun 2008 21:17:07 +0000 (21:17 +0000)
committerIan Lynagh <igloo@earth.li>
Sun, 29 Jun 2008 21:17:07 +0000 (21:17 +0000)
Setup.hs

index aedd52b..0322363 100644 (file)
--- a/Setup.hs
+++ b/Setup.hs
@@ -5,10 +5,12 @@ module Main (main) where
 
 import Control.Monad
 import Data.List
+import Data.Maybe
 import Distribution.PackageDescription
 import Distribution.Simple
 import Distribution.Simple.LocalBuildInfo
 import Distribution.Simple.Utils
+import Distribution.Text
 import System.Cmd
 import System.FilePath
 import System.Exit
@@ -42,7 +44,7 @@ addPrimModuleToPD :: PackageDescription -> PackageDescription
 addPrimModuleToPD pd =
     case library pd of
     Just lib ->
-        let ems = "GHC.Prim" : exposedModules lib
+        let ems = fromJust (simpleParse "GHC.Prim") : exposedModules lib
             lib' = lib { exposedModules = ems }
         in pd { library = Just lib' }
     Nothing ->