From 3dd1f24658f23fa7c0881d0da08e1e2cdec57f89 Mon Sep 17 00:00:00 2001
From: Konrad Merz <kmerz@hulud.net>
Date: Mon, 30 Mar 2015 11:44:11 +0200
Subject: [PATCH] Use redirect instaed of rendering

---
 src/main.hs | 4 +---
 1 file changed, 1 insertion(+), 3 deletions(-)

diff --git a/src/main.hs b/src/main.hs
index a6674f6..b530b53 100644
--- a/src/main.hs
+++ b/src/main.hs
@@ -64,8 +64,7 @@ scottySite = do
       polls <- liftIO $ allPolls
       blaze $ Noodle.Views.Index.render $ pollNames $ polls
     S.get "/" $ do
-      polls <- liftIO $ allPolls
-      blaze $ Noodle.Views.Index.render $ pollNames $ polls
+      S.redirect "/polls"
     S.get "/polls/new" $ do
       blaze $ Noodle.Views.New.render []
     S.post "/options/delete" $ do
@@ -84,7 +83,6 @@ scottySite = do
       let choosen_opt_ids = foldl (\ acc (key, value) -> if key == "option_id"
           then (T.unpack value):acc
           else acc) [] all_params
-
       case name of
         "" -> showAction id ["Vote needs a name"]
         otherwise -> do