summaryrefslogtreecommitdiff
path: root/src/Language/Haskell/GHC/ExactPrint/Pretty.hs
diff options
context:
space:
mode:
Diffstat (limited to 'src/Language/Haskell/GHC/ExactPrint/Pretty.hs')
-rw-r--r--src/Language/Haskell/GHC/ExactPrint/Pretty.hs13
1 files changed, 13 insertions, 0 deletions
diff --git a/src/Language/Haskell/GHC/ExactPrint/Pretty.hs b/src/Language/Haskell/GHC/ExactPrint/Pretty.hs
index 642e755..3ac79cd 100644
--- a/src/Language/Haskell/GHC/ExactPrint/Pretty.hs
+++ b/src/Language/Haskell/GHC/ExactPrint/Pretty.hs
@@ -210,6 +210,9 @@ addPrettyAnnotation ann = do
dp = case ann of
(G GHC.AnnAs) -> tellKd (ann,DP (0,1))
(G GHC.AnnAt) -> tellKd (ann,DP (0,0))
+#if __GLASGOW_HASKELL__ >= 806
+ (G GHC.AnnAnyclass) -> tellKd (ann,DP (0,1))
+#endif
(G GHC.AnnBackquote) -> tellKd (ann,DP (0,1))
(G GHC.AnnBang) -> tellKd (ann,DP (0,1))
(G GHC.AnnBy) -> tellKd (ann,DP (0,1))
@@ -217,6 +220,9 @@ addPrettyAnnotation ann = do
(G GHC.AnnClass) -> tellKd (ann,DP (0,1))
(G GHC.AnnClose) -> tellKd (ann,DP (0,1))
(G GHC.AnnCloseC) -> tellKd (ann,DP (0,0))
+#if __GLASGOW_HASKELL__ >= 802
+ (G GHC.AnnCloseQ) -> tellKd (ann,DP (0,1))
+#endif
(G GHC.AnnDcolon) -> tellKd (ann,DP (0,1))
(G GHC.AnnDeriving) -> tellKd (ann,DP (0,1))
(G GHC.AnnDo) -> tellKd (ann,DP (0,1))
@@ -234,6 +240,7 @@ addPrettyAnnotation ann = do
(G GHC.AnnLam) -> tellKd (ann,DP (0,1))
(G GHC.AnnMinus) -> tellKd (ann,DP (0,1)) -- need to separate from preceding operator
(G GHC.AnnModule) -> tellKd (ann,DP (0,1))
+ (G GHC.AnnNewtype) -> tellKd (ann,DP (0,1))
(G GHC.AnnOf) -> tellKd (ann,DP (0,1))
(G GHC.AnnOpenC) -> tellKd (ann,DP (0,0))
(G GHC.AnnOpenPE) -> tellKd (ann,DP (0,1))
@@ -242,6 +249,9 @@ addPrettyAnnotation ann = do
(G GHC.AnnRarrow) -> tellKd (ann,DP (0,1))
(G GHC.AnnRole) -> tellKd (ann,DP (0,1))
(G GHC.AnnSafe) -> tellKd (ann,DP (0,1))
+#if __GLASGOW_HASKELL__ >= 806
+ (G GHC.AnnStock) -> tellKd (ann,DP (0,1))
+#endif
(G GHC.AnnSimpleQuote) -> tellKd (ann,DP (0,1))
(G GHC.AnnThIdSplice) -> tellKd (ann,DP (0,1))
(G GHC.AnnThIdTySplice) -> tellKd (ann,DP (0,1))
@@ -253,6 +263,9 @@ addPrettyAnnotation ann = do
(G GHC.AnnVal) -> tellKd (ann,DP (0,1))
(G GHC.AnnValStr) -> tellKd (ann,DP (0,1))
(G GHC.AnnVbar) -> tellKd (ann,DP (0,1))
+#if __GLASGOW_HASKELL__ >= 806
+ (G GHC.AnnVia) -> tellKd (ann,DP (0,1))
+#endif
(G GHC.AnnWhere) -> tellKd (ann,DP (1,2))
#if __GLASGOW_HASKELL__ >= 800
AnnTypeApp -> tellKd (ann,DP (0,1))