slaesvuo/hledger
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

clarification

Browse Source
This commit is contained in:
Simon Michael 2011-09-20 15:23:08 +00:00
parent 15c39ac6c9
commit fda4085e80
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
hledger-web/Hledger/Web/Options.hs
View File

@ -16,10 +16,10 @@ import Hledger.Web.Settings
progname = Hledger.Cli.progname ++ "-web"
progversion = progversionstr progname
defbaseurl' = (reverse $ drop 4 $ reverse $ defbaseurl defport) ++ "PORT"
defbaseurlexample = (reverse $ drop 4 $ reverse $ defbaseurl defport) ++ "PORT"
webflags = [
flagReq ["base-url"] (\s opts -> Right $ setopt "base-url" s opts) "URL" ("set the base url (default: "++defbaseurl'++")")
flagReq ["base-url"] (\s opts -> Right $ setopt "base-url" s opts) "URL" ("set the base url (default: "++defbaseurlexample++")")
,flagReq ["port"] (\s opts -> Right $ setopt "port" s opts) "PORT" ("listen on this tcp port (default: "++show defport++")")
]