From 5b3aeb9f4e76624c0b293b4fb8bf855c02f73d3d Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Andreas=20K=C3=A4llberg?= <anka.213@gmail.com>
Date: Tue, 30 Mar 2021 12:14:20 +0800
Subject: [PATCH] hie-compat: Add more backwards compatability

---
 hie-compat/src-ghc901/Compat/HieDebug.hs | 9 ++++++++-
 1 file changed, 8 insertions(+), 1 deletion(-)

diff --git a/hie-compat/src-ghc901/Compat/HieDebug.hs b/hie-compat/src-ghc901/Compat/HieDebug.hs
index 9b8281c2bc1..872da67c2b3 100644
--- a/hie-compat/src-ghc901/Compat/HieDebug.hs
+++ b/hie-compat/src-ghc901/Compat/HieDebug.hs
@@ -1,3 +1,10 @@
 module Compat.HieDebug
-  ( module GHC.Iface.Ext.Debug ) where
+  ( module GHC.Iface.Ext.Debug
+  , ppHie ) where
 import GHC.Iface.Ext.Debug
+
+import GHC.Iface.Ext.Types (HieAST)
+import GHC.Utils.Outputable (Outputable(ppr), SDoc)
+
+ppHie :: Outputable a => HieAST a -> SDoc
+ppHie = ppr