diff options
author | Ian Lynagh <igloo@earth.li> | 2007-04-18 11:45:10 +0000 |
---|---|---|
committer | Ian Lynagh <igloo@earth.li> | 2007-04-18 11:45:10 +0000 |
commit | f506c3a5a8dde7f62109b626bdae58fc8c3f1441 (patch) | |
tree | b120bc1780fdf375b5e1c0793d408aa47ebce6a8 /Setup.hs | |
parent | d4feb8c50b82015cb83c896e9f430ee109480346 (diff) |
Follow Cabal changes in Setup.hs
Diffstat (limited to 'Setup.hs')
-rw-r--r-- | Setup.hs | 7 |
1 files changed, 3 insertions, 4 deletions
@@ -42,11 +42,10 @@ removePrefix (x:xs) (y:ys) | x == y = removePrefix xs ys | otherwise = Nothing -type Hook a = PackageDescription -> LocalBuildInfo -> Maybe UserHooks -> a - -> IO () +type Hook a = PackageDescription -> LocalBuildInfo -> UserHooks -> a -> IO () add_ghc_options :: [String] -> Hook a -> Hook a -add_ghc_options args f pd lbi muhs x +add_ghc_options args f pd lbi uhs x = do let lib' = case library pd of Just lib -> let bi = libBuildInfo lib @@ -55,5 +54,5 @@ add_ghc_options args f pd lbi muhs x in lib { libBuildInfo = bi' } Nothing -> error "Expected a library" pd' = pd { library = Just lib' } - f pd' lbi muhs x + f pd' lbi uhs x |