diff options
Diffstat (limited to 'Git/Config.hs')
| -rw-r--r-- | Git/Config.hs | 10 |
1 files changed, 2 insertions, 8 deletions
diff --git a/Git/Config.hs b/Git/Config.hs index 8d7963994..7b72eba5a 100644 --- a/Git/Config.hs +++ b/Git/Config.hs @@ -5,14 +5,8 @@ - Licensed under the GNU GPL version 3 or higher. -} -module Git.Config ( - get, - read, - hRead, - store -) where +module Git.Config where -import Prelude hiding (read) import System.Posix.Directory import Control.Exception (bracket_) import qualified Data.Map as M @@ -58,7 +52,7 @@ parse :: String -> M.Map String String parse [] = M.empty parse s -- --list output will have an = in the first line - | '=' `elem` head ls = sep '=' ls + | all ('=' `elem`) (take 1 ls) = sep '=' ls -- --null --list output separates keys from values with newlines | otherwise = sep '\n' $ split "\0" s where |