diff options
| author | alexwl <alexey.a.kiryushin@gmail.com> | 2018-11-09 19:37:55 +0300 |
|---|---|---|
| committer | alexwl <alexey.a.kiryushin@gmail.com> | 2018-11-11 16:58:35 +0300 |
| commit | d4827af4220c934739e4ee3b26caab32e591d8ed (patch) | |
| tree | 4b0260238e690229ec67c597ab10ec5f7f86d30e /src/HaskellCodeExplorer/GhcUtils.hs | |
| parent | a3b2321f7781c98c2863a54a339af73a6d6d0050 (diff) | |
Fix pattern synonym declarations
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 b25678d..33370d5 100644 --- a/src/HaskellCodeExplorer/GhcUtils.hs +++ b/src/HaskellCodeExplorer/GhcUtils.hs @@ -172,7 +172,7 @@ import Name , isSystemName , isTvNameSpace , isTyConName - , isVarNameSpace + , isValNameSpace , isWiredInName , mkInternalName , mkOccName @@ -360,9 +360,9 @@ nameSort n = occNameNameSpace :: OccName -> HCE.NameSpace occNameNameSpace n - | isVarNameSpace (occNameSpace n) = HCE.VarName | isDataConNameSpace (occNameSpace n) = HCE.DataName | isTvNameSpace (occNameSpace n) = HCE.TvName + | isValNameSpace (occNameSpace n) = HCE.VarName | otherwise = HCE.TcClsName -- Two 'Id''s may have different types even though they have the same 'Unique'. |