diff options
| author | alexbiehl <alex.biehl@gmail.com> | 2016-05-26 12:43:09 +0200 |
|---|---|---|
| committer | alexbiehl <alex.biehl@gmail.com> | 2016-05-26 12:43:09 +0200 |
| commit | 4202f96a37c9786708bd0410631bc1cf7a82d76a (patch) | |
| tree | 1d684b59e897fdf4c53b3619cf71bce344bbae2f | |
| parent | eb5beb400966243275233549e91f7b8f3d5d3c70 (diff) | |
Remove misplaced haddock comment
| -rw-r--r-- | haddock-api/src/Haddock/Interface/Create.hs | 2 |
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 |