From a26bf151b369fc1891678eedccca4cafdc84f4c4 Mon Sep 17 00:00:00 2001
From: Yuchen Pei <hi@ypei.me>
Date: Mon, 6 Jun 2022 11:38:52 +1000
Subject: moduleinfo done

---
 src/HaskellCodeExplorer/GhcUtils.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'src/HaskellCodeExplorer/GhcUtils.hs')

diff --git a/src/HaskellCodeExplorer/GhcUtils.hs b/src/HaskellCodeExplorer/GhcUtils.hs
index 99cf7b4..a1b121c 100644
--- a/src/HaskellCodeExplorer/GhcUtils.hs
+++ b/src/HaskellCodeExplorer/GhcUtils.hs
@@ -100,6 +100,7 @@ import GHC.Data.FastString
 import GHC
   ( DynFlags
   , CollectFlag(..)
+  , LHsBindLR
   , reLocN
   , unXRec
   , UnXRec
@@ -125,7 +126,6 @@ import GHC
   , Id
   , rdrNameFieldOcc
   , HsGroup(..)
-  , HsBindLR(..)
   , HsValBindsLR(..)
 #if MIN_VERSION_GLASGOW_HASKELL(8,4,1,0)
   , HsPatSynDetails
@@ -474,7 +474,7 @@ mbIdDetails _ = Nothing
 --  Syntax transformation
 --------------------------------------------------------------------------------
 
-hsGroupVals :: HsGroup GhcRn -> [GenLocated SrcSpanAnnA (HsBindLR GhcRn GhcRn)]
+hsGroupVals :: HsGroup GhcRn -> [LHsBindLR GhcRn GhcRn]
 hsGroupVals hsGroup =
   filter (isGoodSrcSpan . getLocA) $
   case hs_valds hsGroup of
-- 
cgit v1.2.3