summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorAlanZimmerman <>2020-06-13 11:27:00 (GMT)
committerhdiff <hdiff@hdiff.luite.com>2020-06-13 11:27:00 (GMT)
commited8b90dfc8ced89cfe4031a5855bd71632c1f1c3 (patch)
tree9413db4d02d29680be282b050b81125bd8a8be32
parent744c4379500d1f3cfb3124ca5b1f9867d6923911 (diff)
version 0.6.3.1HEAD0.6.3.1master
-rwxr-xr-xChangeLog2
-rw-r--r--ghc-exactprint.cabal2
-rw-r--r--src-ghc810/Language/Haskell/GHC/ExactPrint/Annotater.hs2
-rw-r--r--src-ghc86/Language/Haskell/GHC/ExactPrint/Annotater.hs2
-rw-r--r--src-ghc88/Language/Haskell/GHC/ExactPrint/Annotater.hs2
-rwxr-xr-xtests/examples/ghc86/ConDeclEmptyCtx.hs3
6 files changed, 9 insertions, 4 deletions
diff --git a/ChangeLog b/ChangeLog
index 11d3a80..59c2cdc 100755
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,5 @@
+2020-06-13 v0.6.3.1
+ * Always print "=>" in ConDecl (for GHC >= 8.6) by @zliu41
2020-03-26 v0.6.3
* Support GHC 8.8.1, 8.8.2, 8.8.3, 8.10.1
2019-08-28 v0.6.2
diff --git a/ghc-exactprint.cabal b/ghc-exactprint.cabal
index 8eb6bb2..bfea2ea 100644
--- a/ghc-exactprint.cabal
+++ b/ghc-exactprint.cabal
@@ -1,5 +1,5 @@
name: ghc-exactprint
-version: 0.6.3
+version: 0.6.3.1
synopsis: ExactPrint for GHC
description: Using the API Annotations available from GHC 7.10.2, this
library provides a means to round trip any code that can
diff --git a/src-ghc810/Language/Haskell/GHC/ExactPrint/Annotater.hs b/src-ghc810/Language/Haskell/GHC/ExactPrint/Annotater.hs
index 433ab72..667318b 100644
--- a/src-ghc810/Language/Haskell/GHC/ExactPrint/Annotater.hs
+++ b/src-ghc810/Language/Haskell/GHC/ExactPrint/Annotater.hs
@@ -2793,7 +2793,7 @@ instance Annotate (GHC.ConDecl GHC.GhcPs) where
case mctx of
Just ctx -> do
setContext (Set.fromList [NoDarrow]) $ markLocated ctx
- unless (null $ GHC.unLoc ctx) $ mark GHC.AnnDarrow
+ mark GHC.AnnDarrow
Nothing -> return ()
case dets of
diff --git a/src-ghc86/Language/Haskell/GHC/ExactPrint/Annotater.hs b/src-ghc86/Language/Haskell/GHC/ExactPrint/Annotater.hs
index 4fffc08..ef0640d 100644
--- a/src-ghc86/Language/Haskell/GHC/ExactPrint/Annotater.hs
+++ b/src-ghc86/Language/Haskell/GHC/ExactPrint/Annotater.hs
@@ -2649,7 +2649,7 @@ instance Annotate (GHC.ConDecl GHC.GhcPs) where
case mctx of
Just ctx -> do
setContext (Set.fromList [NoDarrow]) $ markLocated ctx
- unless (null $ GHC.unLoc ctx) $ mark GHC.AnnDarrow
+ mark GHC.AnnDarrow
Nothing -> return ()
case dets of
diff --git a/src-ghc88/Language/Haskell/GHC/ExactPrint/Annotater.hs b/src-ghc88/Language/Haskell/GHC/ExactPrint/Annotater.hs
index 30bcc71..7b66a77 100644
--- a/src-ghc88/Language/Haskell/GHC/ExactPrint/Annotater.hs
+++ b/src-ghc88/Language/Haskell/GHC/ExactPrint/Annotater.hs
@@ -2788,7 +2788,7 @@ instance Annotate (GHC.ConDecl GHC.GhcPs) where
case mctx of
Just ctx -> do
setContext (Set.fromList [NoDarrow]) $ markLocated ctx
- unless (null $ GHC.unLoc ctx) $ mark GHC.AnnDarrow
+ mark GHC.AnnDarrow
Nothing -> return ()
case dets of
diff --git a/tests/examples/ghc86/ConDeclEmptyCtx.hs b/tests/examples/ghc86/ConDeclEmptyCtx.hs
new file mode 100755
index 0000000..6edcf6f
--- /dev/null
+++ b/tests/examples/ghc86/ConDeclEmptyCtx.hs
@@ -0,0 +1,3 @@
+module ConDeclEmptyCtx where
+
+data Foo a = () => Foo a