diff options
author | Yuchen Pei <hi@ypei.me> | 2022-06-06 11:38:52 +1000 |
---|---|---|
committer | Yuchen Pei <hi@ypei.me> | 2022-06-06 11:38:52 +1000 |
commit | a26bf151b369fc1891678eedccca4cafdc84f4c4 (patch) | |
tree | 24b5de924871bf7da3884febb1884c0821193095 /src/HaskellCodeExplorer/GhcUtils.hs | |
parent | 08cd4c8be065ab1cf2dd672409035e47199bb2e6 (diff) |
moduleinfo done
Diffstat (limited to 'src/HaskellCodeExplorer/GhcUtils.hs')
-rw-r--r-- | src/HaskellCodeExplorer/GhcUtils.hs | 4 |
1 files changed, 2 insertions, 2 deletions
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 |