diff options
| author | Joey Hess <joeyh@joeyh.name> | 2016-01-12 12:35:55 -0400 |
|---|---|---|
| committer | Joey Hess <joeyh@joeyh.name> | 2016-01-12 12:35:55 -0400 |
| commit | 5ead4f8162873db7d627cf1c2d0b64413d51ef38 (patch) | |
| tree | 200e4a31ff864f10e286df79d5935ecd55d4e402 /src | |
| parent | bad21642a23305b647a5ef7c0695c164d646a5a2 (diff) | |
add missing Control.Applicative imports for old ghc
Diffstat (limited to 'src')
| -rw-r--r-- | src/Propellor/Git.hs | 2 | ||||
| -rw-r--r-- | src/Propellor/Git/Config.hs | 2 |
2 files changed, 4 insertions, 0 deletions
diff --git a/src/Propellor/Git.hs b/src/Propellor/Git.hs index 5a16b3db..949f430b 100644 --- a/src/Propellor/Git.hs +++ b/src/Propellor/Git.hs @@ -4,6 +4,8 @@ import Utility.Process import Utility.Exception import System.Directory +import Control.Applicative +import Prelude getCurrentBranch :: IO String getCurrentBranch = takeWhile (/= '\n') diff --git a/src/Propellor/Git/Config.hs b/src/Propellor/Git/Config.hs index 97835231..f5b6678d 100644 --- a/src/Propellor/Git/Config.hs +++ b/src/Propellor/Git/Config.hs @@ -7,6 +7,8 @@ import Utility.SafeCommand import Utility.Monad import Control.Monad +import Control.Applicative +import Prelude getGitConfigValue :: String -> IO (Maybe String) getGitConfigValue key = do |