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

;dev: web: refactor

Browse Source
This commit is contained in:
Simon Michael 2024-07-18 09:14:56 +01:00
parent 957b217386
commit c0a4983e87
1 changed files with 12 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
hledger-web/Hledger/Web/WebOptions.hs
View File

@ -152,7 +152,8 @@ rawOptsToWebOpts :: RawOpts -> IO WebOpts
rawOptsToWebOpts rawopts = rawOptsToWebOpts rawopts =
checkWebOpts <$> do checkWebOpts <$> do
cliopts <- rawOptsToCliOpts rawopts cliopts <- rawOptsToCliOpts rawopts
let h = fromMaybe defhost $ maybestringopt "host" rawopts let
h = fromMaybe defhost $ maybestringopt "host" rawopts
p = fromMaybe defport $ maybeposintopt "port" rawopts p = fromMaybe defport $ maybeposintopt "port" rawopts
b = maybe (defbaseurl h p) stripTrailingSlash $ maybestringopt "base-url" rawopts b = maybe (defbaseurl h p) stripTrailingSlash $ maybestringopt "base-url" rawopts
sock = stripTrailingSlash <$> maybestringopt "socket" rawopts sock = stripTrailingSlash <$> maybestringopt "socket" rawopts