From d4827af4220c934739e4ee3b26caab32e591d8ed Mon Sep 17 00:00:00 2001
From: alexwl <alexey.a.kiryushin@gmail.com>
Date: Fri, 9 Nov 2018 19:37:55 +0300
Subject: Fix pattern synonym declarations

---
 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 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'.
-- 
cgit v1.2.3