We read every piece of feedback, and take your input very seriously.
To see all available qualifiers, see our documentation.
There was an error while loading. Please reload this page.
1 parent 9c2e1cb commit ae8cef4Copy full SHA for ae8cef4
codegen/GenCmds.hs
@@ -255,8 +255,12 @@ exportCmdNames Cmd{..} = types `mappend` functions
255
Just (Just (_,ts)) -> ts
256
Just Nothing -> error "unhandled"
257
258
+ dropTrailingDot s = case reverse s of
259
+ ('.':rest) -> reverse rest
260
+ _ -> s
261
+
262
haddock = mconcat
- [ fromString "-- |", fromString cmdSummary
263
+ [ fromString "-- |", fromString (dropTrailingDot cmdSummary)
264
, fromString " ("
265
, cmdDescriptionLink cmdName
266
, fromString ")."
0 commit comments