Skip to content

Commit ae8cef4

Browse files
committed
Removed occasional dots in command descriptions
They appear only for some of the commands and removing them makes description look a bit nicer and more uniform
1 parent 9c2e1cb commit ae8cef4

File tree

1 file changed

+5
-1
lines changed

1 file changed

+5
-1
lines changed

codegen/GenCmds.hs

Lines changed: 5 additions & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -255,8 +255,12 @@ exportCmdNames Cmd{..} = types `mappend` functions
255255
Just (Just (_,ts)) -> ts
256256
Just Nothing -> error "unhandled"
257257

258+
dropTrailingDot s = case reverse s of
259+
('.':rest) -> reverse rest
260+
_ -> s
261+
258262
haddock = mconcat
259-
[ fromString "-- |", fromString cmdSummary
263+
[ fromString "-- |", fromString (dropTrailingDot cmdSummary)
260264
, fromString " ("
261265
, cmdDescriptionLink cmdName
262266
, fromString ")."

0 commit comments

Comments
 (0)