This commit is contained in:
Joey Hess 2012-10-03 23:29:37 -04:00
parent e138a514a9
commit b67525ce65

View file

@ -146,10 +146,10 @@ parseCfg curcfg = go [] curcfg . lines
where where
(setting, rest) = separate isSpace l (setting, rest) = separate isSpace l
(repo, value) = separate (== '=') rest (repo, value) = separate (== '=') rest
value' = dropWhile isSpace value value' = trimspace value
repo' = reverse $ dropWhile isSpace $ repo' = reverse $ trimspace $
reverse $ dropWhile isSpace repo reverse $ trimspace repo
trimspace = dropWhile isSpace
handle cfg u setting value handle cfg u setting value
| setting == "trust" = case readTrustLevel value of | setting == "trust" = case readTrustLevel value of