Jack/rcv-site
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

fix empty empty notVotedForCandidates problem

Browse source
This commit is contained in:
Jack Wines 2023-07-06 20:09:05 -07:00
parent d54bcedad9
commit ffb200c7e9
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
src/InstantRunoff.hs
View file

@ -7,7 +7,7 @@ import qualified Data.Maybe as M
import qualified Data.Ord as O import qualified Data.Ord as O
solve :: forall a. Ord a => [a] -> LN.NonEmpty (LN.NonEmpty a) -> [S.Set a] solve :: forall a. Ord a => [a] -> LN.NonEmpty (LN.NonEmpty a) -> [S.Set a]
solve candidates votes = (reverse solved) ++ [notVotedForCandidates] solve candidates votes = (reverse solved) ++ if (S.null notVotedForCandidates) then [] else [notVotedForCandidates]
where where
-- candidates not on any submitted ballot -- candidates not on any submitted ballot