haskell/yesod
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Some CPP for Cabal API changes

Browse Source
This commit is contained in:
Michael Snoyman 2016-11-23 15:19:27 +02:00
parent 03307a8cc8
commit db3beff4f3
1 changed files with 5 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
yesod-bin/Devel.hs
View File

@ -1,3 +1,4 @@
{-# LANGUAGE CPP #-}
{-# LANGUAGE OverloadedStrings #-} {-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE TemplateHaskell #-} {-# LANGUAGE TemplateHaskell #-}
module Devel module Devel
@ -228,7 +229,11 @@ devel opts passThroughArgs = do
-- Find out the name of our package, needed for the upcoming Stack -- Find out the name of our package, needed for the upcoming Stack
-- commands -- commands
#if MIN_VERSION_Cabal(1, 20, 0)
cabal <- D.findPackageDesc "."
#else
cabal <- D.tryFindPackageDesc "." cabal <- D.tryFindPackageDesc "."
#endif
gpd <- D.readPackageDescription D.normal cabal gpd <- D.readPackageDescription D.normal cabal
let pd = D.packageDescription gpd let pd = D.packageDescription gpd
D.PackageIdentifier (D.PackageName packageName) _version = D.package pd D.PackageIdentifier (D.PackageName packageName) _version = D.package pd