From 120040886f499cf95595246b0c02cc94b6f83a4d Mon Sep 17 00:00:00 2001
From: Jack Wines <jack@winesj.com>
Date: Thu, 6 Jul 2023 19:27:35 -0700
Subject: [PATCH] whoops, things were reversed again

---
 rcv-site.cabal       | 2 +-
 src/InstantRunoff.hs | 4 +---
 2 files changed, 2 insertions(+), 4 deletions(-)

diff --git a/rcv-site.cabal b/rcv-site.cabal
index 2c9ea01..52c14c2 100644
--- a/rcv-site.cabal
+++ b/rcv-site.cabal
@@ -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:
diff --git a/src/InstantRunoff.hs b/src/InstantRunoff.hs
index 0d4166b..de6d7bc 100644
--- a/src/InstantRunoff.hs
+++ b/src/InstantRunoff.hs
@@ -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