avoid a Text.Printf name collision with GHC 7.7+ (fixes #153)

This commit is contained in:
Simon Michael 2014-01-10 08:29:25 -08:00
parent 2a23ebd74f
commit d55f686f68

View File

@ -67,13 +67,13 @@ formatLiteral = do
c = (satisfy isPrintableButNotPercentage <?> "printable character")
<|> try (string "%%" >> return '%')
formatString :: GenParser Char st FormatString
formatString =
formatStr :: GenParser Char st FormatString
formatStr =
formatField
<|> formatLiteral
formatStrings :: GenParser Char st [FormatString]
formatStrings = many formatString
formatStrings = many formatStr
testFormat :: FormatString -> String -> String -> Assertion
testFormat fs value expected = assertEqual name expected actual