@@ -131,7 +131,7 @@ fn print_comic(
131131 Ok ( Nil )
132132}
133133
134- fn print_help ( ) -> Result ( Nil , Nil ) {
134+ fn print_help ( aliases : List ( config . Alias ) ) -> Result ( Nil , Nil ) {
135135 let help_lines = [
136136 "usage: gleeter [command] [options]" , "" , "available commands:" ,
137137 " serve [port] [base_path]: start gleeter in server mode" ,
@@ -140,7 +140,18 @@ fn print_help() -> Result(Nil, Nil) {
140140 " random: print random comic" ,
141141 ]
142142
143+ let aliases =
144+ list . map ( aliases , fn ( alias ) {
145+ case alias {
146+ config . RandomAlias ( _ ) -> " " <> alias . name <> ": print random comic"
147+ config . LatestAlias ( _ ) -> " " <> alias . name <> ": print latest comic"
148+ config . IdAlias ( _ , id ) ->
149+ " " <> alias . name <> ": print comic with id " <> int . to_string ( id )
150+ }
151+ } )
152+
143153 help_lines
154+ |> list . append ( aliases )
144155 |> list . each ( io . println )
145156 |> Ok
146157}
@@ -163,7 +174,7 @@ pub fn main() -> Result(Nil, Nil) {
163174 print_comic ( cache , configuration , ID ( id ) )
164175 application_behavior . Serve ( p , b ) ->
165176 serve . serve ( p , b , cache , configuration ) |> Ok
166- application_behavior . Help -> print_help ( )
177+ application_behavior . Help -> print_help ( configuration . aliases )
167178 }
168179 let end = birl . now ( )
169180
0 commit comments