diff options
| author | Ben Gamari <ben@smart-cactus.org> | 2016-05-10 17:06:19 +0200 |
|---|---|---|
| committer | Ben Gamari <ben@smart-cactus.org> | 2016-05-10 18:13:25 +0200 |
| commit | 88bacd21107ef9b8d8d83d5d281a06c8ef4f2271 (patch) | |
| tree | e49a3e7f50e6e17999d555e047a38b0b6ca04426 /haddock-api | |
| parent | dd9a30f4d27d5fdac501d8b05ea4c6794cfae262 (diff) | |
Create: Mark a comment as TODO
Diffstat (limited to 'haddock-api')
| -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 6466acfb..007038cb 100644 --- a/haddock-api/src/Haddock/Interface/Create.hs +++ b/haddock-api/src/Haddock/Interface/Create.hs @@ -533,7 +533,7 @@ mkExportItems let declNames = getMainDeclBinder (unL decl) in case () of _ - -- temp hack: we filter out separately exported ATs, since we haven't decided how + -- TODO: temp hack: we filter out separately exported ATs, since we haven't decided how -- to handle them yet. We should really give an warning message also, and filter the -- name out in mkVisibleNames... | t `elem` declATs (unL decl) -> return [] |