whoops, things were reversed again

This commit is contained in:
Jack Wines 2023-07-06 19:27:35 -07:00
parent 8f5162b6ca
commit 120040886f
2 changed files with 2 additions and 4 deletions

View file

@ -4,7 +4,7 @@ version: 0.1.0.0
category: Web
build-type: Simple
executable server
executable rcv-site
main-is:
Main.hs
default-extensions:

View file

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