diff options
author | Alberto Ruiz <aruiz@um.es> | 2010-11-17 18:14:58 +0000 |
---|---|---|
committer | Alberto Ruiz <aruiz@um.es> | 2010-11-17 18:14:58 +0000 |
commit | 0e6a1803ed5724350d9682dba4db201579e3c8cb (patch) | |
tree | 3ef216011b50e0b6e40a65f6c1f704146a9e62d7 | |
parent | 98b21c5ddcbc9fbfddd5dbec646916f016b43e6d (diff) |
fixed pattern match failure in configure.hs
-rw-r--r-- | configure.hs | 8 |
1 files changed, 6 insertions, 2 deletions
diff --git a/configure.hs b/configure.hs index 3b12e0f..bced948 100644 --- a/configure.hs +++ b/configure.hs | |||
@@ -98,10 +98,14 @@ getUserLink = concatMap (g . drop (length linkop)) . filter (isPrefixOf linkop) | |||
98 | cs x = x | 98 | cs x = x |
99 | 99 | ||
100 | main = do | 100 | main = do |
101 | info <- maybeGetPersistBuildConfig "dist" | ||
102 | case info of | ||
103 | Nothing -> putStrLn "Please run \"cabal clean\" first." >> exitFailure | ||
104 | Just bInfo -> mainOk bInfo | ||
105 | |||
106 | mainOk bInfo = do | ||
101 | putStr "Checking foreign libraries..." | 107 | putStr "Checking foreign libraries..." |
102 | |||
103 | args <- getArgs | 108 | args <- getArgs |
104 | Just bInfo <- maybeGetPersistBuildConfig "dist" | ||
105 | 109 | ||
106 | let Just lib = library . localPkgDescr $ bInfo | 110 | let Just lib = library . localPkgDescr $ bInfo |
107 | buildInfo = libBuildInfo lib | 111 | buildInfo = libBuildInfo lib |