added invalidAccess stub to fontify functions

2016-08-28 19:35:55 +02:00 · 2016-08-28 19:35:55 +02:00 · ea7d2dff2c
commit ea7d2dff2c
parent 7350e8a4cd
1 changed files with 3 additions and 3 deletions
--- a/src/App/Fontifier.hs
+++ b/src/App/Fontifier.hs
@ -70,9 +70,9 @@ fontMap = [ (attrName "assignment"   , fg Vty.blue)
          ]

 fontify :: CheckString -> Fontifications
-fontify = concatApply [ assignments, strings
-                      , returns, guards, comments
-                      , mismatchedBrackets
+fontify = concatApply [ assignments, invalidAccess
+                      , strings, returns, guards
+                      , comments, mismatchedBrackets
                      , mismatchedQuotes]

 concatApply :: [Fontifier] -> CheckString -> Fontifications