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 |