added invalidAccess stub to fontify functions

This commit is contained in:
Armin Friedl 2016-08-28 19:35:55 +02:00
parent 7350e8a4cd
commit ea7d2dff2c

View file

@ -70,9 +70,9 @@ fontMap = [ (attrName "assignment" , fg Vty.blue)
] ]
fontify :: CheckString -> Fontifications fontify :: CheckString -> Fontifications
fontify = concatApply [ assignments, strings fontify = concatApply [ assignments, invalidAccess
, returns, guards, comments , strings, returns, guards
, mismatchedBrackets , comments, mismatchedBrackets
, mismatchedQuotes] , mismatchedQuotes]
concatApply :: [Fontifier] -> CheckString -> Fontifications concatApply :: [Fontifier] -> CheckString -> Fontifications