aboutsummaryrefslogtreecommitdiff
path: root/haddock-api/src
diff options
context:
space:
mode:
authorBen Gamari <ben@smart-cactus.org>2016-05-27 11:34:59 +0200
committerBen Gamari <ben@smart-cactus.org>2016-05-27 11:34:59 +0200
commit0cf9557ded38f4439b480cfa6290577ce7a9943d (patch)
tree1d684b59e897fdf4c53b3619cf71bce344bbae2f /haddock-api/src
parenteb5beb400966243275233549e91f7b8f3d5d3c70 (diff)
parent4202f96a37c9786708bd0410631bc1cf7a82d76a (diff)
Merge pull request #515 from alexbiehl/master
Remove misplaced haddock comment
Diffstat (limited to 'haddock-api/src')
-rw-r--r--haddock-api/src/Haddock/Interface/Create.hs2
1 files changed, 1 insertions, 1 deletions
diff --git a/haddock-api/src/Haddock/Interface/Create.hs b/haddock-api/src/Haddock/Interface/Create.hs
index e0b52cb5..cb855693 100644
--- a/haddock-api/src/Haddock/Interface/Create.hs
+++ b/haddock-api/src/Haddock/Interface/Create.hs
@@ -832,7 +832,7 @@ extractRecSel nm mdl t tvs (L _ con : rest) =
matching_fields flds = [ (l,f) | f@(L _ (ConDeclField ns _ _)) <- flds
, L l n <- ns, selectorFieldOcc n == nm ]
data_ty
- -- | ResTyGADT _ ty <- con_res con = ty
+ -- ResTyGADT _ ty <- con_res con = ty
| ConDeclGADT{} <- con = hsib_body $ con_type con
| otherwise = foldl' (\x y -> noLoc (HsAppTy x y)) (noLoc (HsTyVar (noLoc t))) tvs