diff options
Diffstat (limited to 'Utility/Gpg.hs')
| -rw-r--r-- | Utility/Gpg.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/Utility/Gpg.hs b/Utility/Gpg.hs index 2ffb0add6..4af0067bb 100644 --- a/Utility/Gpg.hs +++ b/Utility/Gpg.hs @@ -10,7 +10,7 @@ module Utility.Gpg where import Common -import qualified Build.SysConfig as SysConfig +import qualified BuildInfo #ifndef mingw32_HOST_OS import System.Posix.Types import qualified System.Posix.IO @@ -35,7 +35,7 @@ newtype GpgCmd = GpgCmd { unGpgCmd :: String } - command was found at configure time, use it, or otherwise, "gpg". -} mkGpgCmd :: Maybe FilePath -> GpgCmd mkGpgCmd (Just c) = GpgCmd c -mkGpgCmd Nothing = GpgCmd (fromMaybe "gpg" SysConfig.gpg) +mkGpgCmd Nothing = GpgCmd (fromMaybe "gpg" BuildInfo.gpg) boolGpgCmd :: GpgCmd -> [CommandParam] -> IO Bool boolGpgCmd (GpgCmd cmd) = boolSystem cmd |