summaryrefslogtreecommitdiff
path: root/src-ghc710/Language/Haskell/GHC/ExactPrint/Annotater.hs
diff options
context:
space:
mode:
Diffstat (limited to 'src-ghc710/Language/Haskell/GHC/ExactPrint/Annotater.hs')
-rw-r--r--src-ghc710/Language/Haskell/GHC/ExactPrint/Annotater.hs1
1 files changed, 1 insertions, 0 deletions
diff --git a/src-ghc710/Language/Haskell/GHC/ExactPrint/Annotater.hs b/src-ghc710/Language/Haskell/GHC/ExactPrint/Annotater.hs
index d81bdc1..8353072 100644
--- a/src-ghc710/Language/Haskell/GHC/ExactPrint/Annotater.hs
+++ b/src-ghc710/Language/Haskell/GHC/ExactPrint/Annotater.hs
@@ -2503,6 +2503,7 @@ instance (GHC.OutputableBndr name) => GHC.Outputable (ResTyGADTHook name) where
instance (GHC.DataId name,GHC.OutputableBndr name,GHC.HasOccName name,Annotate name)
=> Annotate (ResTyGADTHook name) where
markAST _ (ResTyGADTHook bndrs) = do
+ markManyOptional GHC.AnnOpenP
unless (null bndrs) $ do
mark GHC.AnnForall
mapM_ markLocated bndrs