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
(setting, rest) = separate isSpace l
(repo, value) = separate (== '=') rest
value' = dropWhile isSpace value
repo' = reverse $ dropWhile isSpace $
reverse $ dropWhile isSpace repo
value' = trimspace value
repo' = reverse $ trimspace $
reverse $ trimspace repo
trimspace = dropWhile isSpace
handle cfg u setting value
| setting == "trust" = case readTrustLevel value of