From e6d0b7bf0954f941357d77e8158aa52bb1c96686 Mon Sep 17 00:00:00 2001 From: alexwl Date: Sun, 23 Dec 2018 17:59:00 +0300 Subject: Add support for GHC 8.6.3 --- vendor/cabal-helper-0.8.1.2/lib/Distribution/Helper.hs | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) (limited to 'vendor') 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 -- cgit v1.2.3