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