This commit is contained in:
Joey Hess 2012-02-16 00:41:30 -04:00
parent e7aaa55c53
commit a1e52f0ce5
18 changed files with 36 additions and 37 deletions

View file

@ -79,7 +79,7 @@ configUnEscape = unescape
num = takeWhile isNumber s
r = drop (length num) s
rest = drop 1 r
ok = not (null num) && take 1 r == ";"
ok = not (null num) && ":" `isPrefixOf` r
{- for quickcheck -}
prop_idempotent_configEscape :: String -> Bool