From 893a261c8c15783c8f86c74f4e8c57df9c44a155 Mon Sep 17 00:00:00 2001
From: "Dr. ERDI Gergo" <gergo@erdi.hu>
Date: Tue, 29 Jul 2014 11:27:26 +0200
Subject: Refactor PatSynBind so that we can pass around PSBs instead of
 several arguments

---
 utils/ghctags/Main.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'utils/ghctags')

diff --git a/utils/ghctags/Main.hs b/utils/ghctags/Main.hs
index 815cc7ca18..4a094f50a1 100644
--- a/utils/ghctags/Main.hs
+++ b/utils/ghctags/Main.hs
@@ -282,7 +282,7 @@ boundThings modname lbinding =
     PatBind { pat_lhs = lhs } -> patThings lhs []
     VarBind { var_id = id } -> [FoundThing modname (getOccString id) (startOfLocated lbinding)]
     AbsBinds { } -> [] -- nothing interesting in a type abstraction
-    PatSynBind { patsyn_id = id } -> [thing id]
+    PatSynBind PSB{ psb_id = id } -> [thing id]
   where thing = foundOfLName modname
         patThings lpat tl =
           let loc = startOfLocated lpat
-- 
cgit v1.2.1