From b06a625e0b602a5c0a6f67d1b7b6b1666b2eeb7a Mon Sep 17 00:00:00 2001 From: Ian Lynagh Date: Sun, 29 Jun 2008 21:17:07 +0000 Subject: [PATCH] Follow Cabal changes --- Setup.hs | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/Setup.hs b/Setup.hs index aedd52b..0322363 100644 --- 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 -> -- 1.7.10.4