@@ -1,4 +1,3 @@
1−{-# LANGUAGE CPP #-}
21module Distribution.Nixpkgs.Haskell.PackageSourceSpec
32 ( Package(..), getPackage, getPackage', loadHackageDB, sourceFromHackage
43 ) where
@@ -192,18 +191,10 @@ handleIO = Exception.handle
192191
193192hpackDirectory :: FilePath -> MaybeT IO (Bool, Cabal.GenericPackageDescription)
194193hpackDirectory dir = do
195−#if MIN_VERSION_hpack(0,22,0)
196194 mPackage <- liftIO $ Hpack.readPackageConfig "" $ dir </> "package.yaml"
197−#else
198− mPackage <- liftIO $ Hpack.readPackageConfig $ dir </> "package.yaml"
199−#endif
200195 case mPackage of
201196 Left err -> liftIO $ hPutStrLn stderr ("*** hpack error: " ++ show err ++ ". Exiting.") >> exitFailure
202−#if MIN_VERSION_hpack(0,22,0)
203197 Right (pkg', _) -> do
204−#else
205− Right (_, pkg') -> do
206−#endif
207198 let hpackOutput = Hpack.renderPackage Hpack.defaultRenderSettings 2 [] [] pkg'
208199 hash = printSHA256 $ digestString (digestByName "sha256") hpackOutput
209200 case parseGenericPackageDescription hpackOutput of