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

dev: Remove usage of partial NE.fromList

Browse Source 
At this point, we're just giving a default for unpacking a Maybe
This commit is contained in:
gesh 2025-02-27 20:57:59 +02:00 committed by Simon Michael
parent cde77eace0
commit 3fa39c17b3
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
hledger/Hledger/Cli/CliOptions.hs
View File

@ -615,7 +615,7 @@ rawOptsToCliOpts rawopts = do
let iopts = rawOptsToInputOpts day usecolor postingaccttags rawopts let iopts = rawOptsToInputOpts day usecolor postingaccttags rawopts
rspec <- either error' pure $ rawOptsToReportSpec day usecolor rawopts -- PARTIAL: rspec <- either error' pure $ rawOptsToReportSpec day usecolor rawopts -- PARTIAL:
mtermwidth <- getTerminalWidth mtermwidth <- getTerminalWidth
let availablewidth = NE.head $ NE.fromList $ catMaybes [mtermwidth, Just defaultWidth] -- PARTIAL: fromList won't fail because non-null list let availablewidth = fromMaybe defaultWidth mtermwidth
return defcliopts { return defcliopts {
rawopts_ = rawopts rawopts_ = rawopts
,command_ = command ,command_ = command