Fix a warning

This commit is contained in:
Michael Snoyman 2012-07-13 16:26:32 +03:00
parent 14f1fd1e27
commit c005bc0aec

View File

@ -94,7 +94,7 @@ import Control.Arrow ((&&&))
import Control.Applicative ((<$>), (<|>))
import Data.Attoparsec.Text
import Data.Attoparsec.Text (Parser, char, string, digit, skipSpace, endOfInput, parseOnly)
defaultFormMessage :: FormMessage -> Text
defaultFormMessage = englishFormMessage