summaryrefslogtreecommitdiff
path: root/src/Language/Haskell/GHC/ExactPrint/Lookup.hs
diff options
context:
space:
mode:
Diffstat (limited to 'src/Language/Haskell/GHC/ExactPrint/Lookup.hs')
-rw-r--r--src/Language/Haskell/GHC/ExactPrint/Lookup.hs5
1 files changed, 5 insertions, 0 deletions
diff --git a/src/Language/Haskell/GHC/ExactPrint/Lookup.hs b/src/Language/Haskell/GHC/ExactPrint/Lookup.hs
index 385824e..78fcbfe 100644
--- a/src/Language/Haskell/GHC/ExactPrint/Lookup.hs
+++ b/src/Language/Haskell/GHC/ExactPrint/Lookup.hs
@@ -122,7 +122,9 @@ keywordToString kw =
(G GHC.AnnStatic ) -> "static"
(G GHC.AnnThen ) -> "then"
(G GHC.AnnTilde ) -> "~"
+#if __GLASGOW_HASKELL__ <= 804
(G GHC.AnnTildehsh ) -> "~#"
+#endif
(G GHC.AnnType ) -> "type"
(G GHC.AnnUnit ) -> "()"
(G GHC.AnnUsing ) -> "using"
@@ -151,6 +153,9 @@ keywordToString kw =
#if __GLASGOW_HASKELL__ >= 800
AnnTypeApp -> "@"
#endif
+#if __GLASGOW_HASKELL__ > 804
+ (G GHC.AnnVia) -> "via"
+#endif
#if __GLASGOW_HASKELL__ <= 710
-- | Tries to find a unicode equivalent to a 'KeywordId'.