From ea7d2dff2c848d57447fe273ab684d573b5a841d Mon Sep 17 00:00:00 2001 From: Armin Friedl Date: Sun, 28 Aug 2016 19:35:55 +0200 Subject: [PATCH] added invalidAccess stub to fontify functions --- src/App/Fontifier.hs | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/src/App/Fontifier.hs b/src/App/Fontifier.hs index 2b18060..740d8cf 100644 --- 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