Safe Haskell	None
Language	Haskell2010

Service.HtmlChecker.Response

Synopsis

data Message = Message {
- type_ :: Maybe String
- subType :: Maybe String
- message :: Maybe String
- extract :: Maybe String
- firstLine :: Maybe Int
- firstColumn :: Maybe Int
- lastLine :: Maybe Int
- lastColumn :: Maybe Int
- hiliteStart :: Maybe Int
- hiliteLength :: Maybe Int
}
data ValidationResult = ValidationResult {
- messages :: [Message]
}
decodeResult :: ByteString -> Maybe ValidationResult
getMessages :: ValidationResult -> [Message]
countErrors :: Maybe ValidationResult -> Int
isError :: Message -> Bool
showMessage :: Bool -> Bool -> Message -> String
showMessageInClassic :: Message -> String
showMessageInClassicWithColor :: Message -> String
showMessageInClassic' :: (Message -> Maybe String) -> (Message -> Maybe String) -> (Message -> Maybe String) -> Message -> String
showMessageInOneLine :: Message -> String
showMessageInOneLineWithColor :: Message -> String
showMessageInOneLine' :: (Message -> Maybe String) -> Message -> String
getType :: Message -> Maybe String
getTypeWithColor :: Message -> Maybe String
getMessage :: Message -> Maybe String
getPoint :: Message -> Maybe String
getExtract :: Message -> Maybe String
getExtractWithColor :: Message -> Maybe String
getHilite :: Message -> Maybe String
getHiliteWithColor :: Message -> Maybe String
unescapeSomeSpecialChar :: String -> String
goBold :: String -> String
goRed :: String -> String
goYellow :: String -> String
goBlue :: String -> String
goCyan :: String -> String

Documentation

data Message Source #

Constructors

Message
Fields type_ :: Maybe String subType :: Maybe String message :: Maybe String extract :: Maybe String firstLine :: Maybe Int firstColumn :: Maybe Int lastLine :: Maybe Int lastColumn :: Maybe Int hiliteStart :: Maybe Int hiliteLength :: Maybe Int

Instances

Eq Message Source #
Instance details Defined in Service.HtmlChecker.Response Methods (==) :: Message -> Message -> Bool # (/=) :: Message -> Message -> Bool #
Read Message Source #
Instance details Defined in Service.HtmlChecker.Response Methods readsPrec :: Int -> ReadS Message # readList :: ReadS [Message] # readPrec :: ReadPrec Message # readListPrec :: ReadPrec [Message] #
Show Message Source #
Instance details Defined in Service.HtmlChecker.Response Methods showsPrec :: Int -> Message -> ShowS # show :: Message -> String # showList :: [Message] -> ShowS #
ToJSON Message Source #
Instance details Defined in Service.HtmlChecker.Response Methods toJSON :: Message -> Value # toEncoding :: Message -> Encoding # toJSONList :: [Message] -> Value # toEncodingList :: [Message] -> Encoding #
FromJSON Message Source #
Instance details Defined in Service.HtmlChecker.Response Methods parseJSON :: Value -> Parser Message # parseJSONList :: Value -> Parser [Message] #

data ValidationResult Source #

Constructors

ValidationResult
Fields messages :: [Message]

Instances

Eq ValidationResult Source #
Instance details Defined in Service.HtmlChecker.Response Methods (==) :: ValidationResult -> ValidationResult -> Bool # (/=) :: ValidationResult -> ValidationResult -> Bool #
Read ValidationResult Source #
Instance details Defined in Service.HtmlChecker.Response Methods readsPrec :: Int -> ReadS ValidationResult # readList :: ReadS [ValidationResult] # readPrec :: ReadPrec ValidationResult # readListPrec :: ReadPrec [ValidationResult] #
Show ValidationResult Source #
Instance details Defined in Service.HtmlChecker.Response Methods showsPrec :: Int -> ValidationResult -> ShowS # show :: ValidationResult -> String # showList :: [ValidationResult] -> ShowS #
ToJSON ValidationResult Source #
Instance details Defined in Service.HtmlChecker.Response Methods toJSON :: ValidationResult -> Value # toEncoding :: ValidationResult -> Encoding # toJSONList :: [ValidationResult] -> Value # toEncodingList :: [ValidationResult] -> Encoding #
FromJSON ValidationResult Source #
Instance details Defined in Service.HtmlChecker.Response Methods parseJSON :: Value -> Parser ValidationResult # parseJSONList :: Value -> Parser [ValidationResult] #

decodeResult :: ByteString -> Maybe ValidationResult Source #

getMessages :: ValidationResult -> [Message] Source #

countErrors :: Maybe ValidationResult -> Int Source #

isError :: Message -> Bool Source #

showMessage :: Bool -> Bool -> Message -> String Source #

showMessageInClassic :: Message -> String Source #

showMessageInClassicWithColor :: Message -> String Source #

showMessageInClassic' :: (Message -> Maybe String) -> (Message -> Maybe String) -> (Message -> Maybe String) -> Message -> String Source #

showMessageInOneLine :: Message -> String Source #

showMessageInOneLineWithColor :: Message -> String Source #

showMessageInOneLine' :: (Message -> Maybe String) -> Message -> String Source #

getType :: Message -> Maybe String Source #

getTypeWithColor :: Message -> Maybe String Source #

getMessage :: Message -> Maybe String Source #

getPoint :: Message -> Maybe String Source #

getExtract :: Message -> Maybe String Source #

Get "extract" valude from message.

The return value is unescaped to display without line break

getExtractWithColor :: Message -> Maybe String Source #

getHilite :: Message -> Maybe String Source #

getHiliteWithColor :: Message -> Maybe String Source #

unescapeSomeSpecialChar :: String -> String Source #

Convert some control chars to a whitespace.

To keep alingment, replace \? with ' ' instead of "\?".

>>> unescapeSomeSpecialChar "Line1\nLine2\nLine3\n"
"Line1 Line2 Line3 "
>>> unescapeSomeSpecialChar "HEADER\r\n\r\nBODY"
"HEADER    BODY"
>>> unescapeSomeSpecialChar "\a\b\t\n\v\f\r"
"\a\b  \v\f "

goBold :: String -> String Source #

goRed :: String -> String Source #

goYellow :: String -> String Source #

goBlue :: String -> String Source #

goCyan :: String -> String Source #