@@ -88,7 +88,9 @@ toReport source err =
8888 "I do not see `" <> N.toString name
8989 <> "` in the `exposing` list, but it is in your module documentation:"
9090 ,
91− error "TODO OnlyInDocs"
91+ H.reflow $
92+ "Does it need to be added to the `exposing` list as well? Or maybe you removed `"
93+ <> N.toString name <> "` and forgot to delete it here?"
9294 )
9395
9496 OnlyInExports name region ->
@@ -99,7 +101,12 @@ toReport source err =
99101 "I do not see `" <> N.toString name
100102 <> "` in your module documentation, but it is in your `exposing` list:"
101103 ,
102− error "TODO OnlyInExports"
104+ H.stack
105+ [ H.reflow $
106+ "Add a line like `@docs " <> N.toString name
107+ <> "` to your module documentation!"
108+ , H.link "Note" "See" "docs" "for more guidance on writing high quality docs."
109+ ]
103110 )
104111
105112 NoComment name region ->