diff options
| author | alexwl <alexey.a.kiryushin@gmail.com> | 2018-12-23 17:59:00 +0300 |
|---|---|---|
| committer | alexwl <alexey.a.kiryushin@gmail.com> | 2018-12-23 17:59:00 +0300 |
| commit | e6d0b7bf0954f941357d77e8158aa52bb1c96686 (patch) | |
| tree | bb32dfaac36af2c009bbf2158f6ac5e9745f8fe6 /vendor | |
| parent | 27024fa57469af22d5b39309042f203c7b2efc5e (diff) | |
Add support for GHC 8.6.3
Diffstat (limited to 'vendor')
| -rw-r--r-- | vendor/cabal-helper-0.8.1.2/lib/Distribution/Helper.hs | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/vendor/cabal-helper-0.8.1.2/lib/Distribution/Helper.hs b/vendor/cabal-helper-0.8.1.2/lib/Distribution/Helper.hs index 1d93b84..a0d32fd 100644 --- a/vendor/cabal-helper-0.8.1.2/lib/Distribution/Helper.hs +++ b/vendor/cabal-helper-0.8.1.2/lib/Distribution/Helper.hs @@ -380,8 +380,10 @@ invokeHelper QueryEnv {..} args = do getPackageId :: MonadQuery m => m (String, Version) getPackageId = ask >>= \QueryEnv {..} -> do - [ Just (ChResponseVersion pkgName pkgVer) ] <- readHelper [ "package-id" ] - return (pkgName, pkgVer) + helper <- readHelper [ "package-id" ] + case helper of + [ Just (ChResponseVersion pkgName pkgVer) ] -> return (pkgName, pkgVer) + _ -> error "getPackageId : readHelper" getSomeConfigState :: MonadQuery m => m SomeLocalBuildInfo getSomeConfigState = ask >>= \QueryEnv {..} -> do |