diff --git a/ChangeLog b/ChangeLog
--- 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
--- 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
--- a/src-ghc810/Language/Haskell/GHC/ExactPrint/Annotater.hs
+++ b/src-ghc810/Language/Haskell/GHC/ExactPrint/Annotater.hs
@@ -2793,7 +2793,7 @@
     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
--- a/src-ghc86/Language/Haskell/GHC/ExactPrint/Annotater.hs
+++ b/src-ghc86/Language/Haskell/GHC/ExactPrint/Annotater.hs
@@ -2649,7 +2649,7 @@
     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
--- a/src-ghc88/Language/Haskell/GHC/ExactPrint/Annotater.hs
+++ b/src-ghc88/Language/Haskell/GHC/ExactPrint/Annotater.hs
@@ -2788,7 +2788,7 @@
     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 100644
--- /dev/null
+++ b/tests/examples/ghc86/ConDeclEmptyCtx.hs
@@ -0,0 +1,3 @@
+module ConDeclEmptyCtx where
+
+data Foo a = () => Foo a