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