From 01eeeb048acd2dd05ff6471ae148a97cf0720547 Mon Sep 17 00:00:00 2001
From: Alan Zimmerman <alan.zimm@gmail.com>
Date: Tue, 17 Oct 2017 15:00:02 +0200
Subject: Match changes for Trees that Grow in GHC

---
 haddock-api/src/Haddock/GhcUtils.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'haddock-api/src/Haddock/GhcUtils.hs')

diff --git a/haddock-api/src/Haddock/GhcUtils.hs b/haddock-api/src/Haddock/GhcUtils.hs
index a1009c1f..1999be76 100644
--- a/haddock-api/src/Haddock/GhcUtils.hs
+++ b/haddock-api/src/Haddock/GhcUtils.hs
@@ -180,7 +180,7 @@ class Parent a where
 instance Parent (ConDecl GhcRn) where
   children con =
     case getConDetails con of
-      RecCon fields -> map (selectorFieldOcc . unL) $
+      RecCon fields -> map (extFieldOcc . unL) $
                          concatMap (cd_fld_names . unL) (unL fields)
       _             -> []
 
-- 
cgit v1.2.3