From 54a2c97561fdd708eda4de0b723ca9d544c406b6 Mon Sep 17 00:00:00 2001
From: Jack Wines <jack@winesj.com>
Date: Mon, 21 Aug 2023 19:35:35 -0700
Subject: [PATCH] swap to port 8081

---
 README.md   | 3 ++-
 src/Main.hs | 2 +-
 2 files changed, 3 insertions(+), 2 deletions(-)

diff --git a/README.md b/README.md
index dcd6d49..d7e54a6 100644
--- a/README.md
+++ b/README.md
@@ -1,6 +1,7 @@
 Allows someone to setup a quick poll decided by [ranked voting](https://en.wikipedia.org/wiki/Ranked_voting) (currently just [instant runoff](https://en.wikipedia.org/wiki/Instant-runoff_voting)).
 
 To run:
+* `nix run` on nixos/nix, otherwise:
 * install [Haskell](https://www.haskell.org/ghcup/)
 ``` sh
     # assuming you manage ghc with ghcup
@@ -10,4 +11,4 @@ To run:
     
     cabal run rcv-site
 ```
-* go to localhost:8080
+* go to localhost:8081
diff --git a/src/Main.hs b/src/Main.hs
index a405ece..7332279 100644
--- a/src/Main.hs
+++ b/src/Main.hs
@@ -232,4 +232,4 @@ main = do
   M.void . liftIO $ Ac.update (db env) (DB.PostBallot (P.PollId 7) (B.Ballot ["purple", "black", "yellow", "orange", "blue"]))
   mapM_ print =<< (liftIO . Ac.query (db env) $ DB.GetPollIds)
   let application = serve api . hoistServer api (runWithEnv env) $ server
-  W.run 8080 application
+  W.run 8081 application