From 257e94f4741aeeb6cb89bb4e5d3b3885869414cb Mon Sep 17 00:00:00 2001
From: rnhmjoj <micheleguerinirocco@me.com>
Date: Sat, 9 May 2015 23:04:14 +0200
Subject: [PATCH] Better way to send JSON

---
 src/Application.hs | 11 +++++------
 1 file changed, 5 insertions(+), 6 deletions(-)

diff --git a/src/Application.hs b/src/Application.hs
index b470cbe..22fd4e6 100644
--- a/src/Application.hs
+++ b/src/Application.hs
@@ -8,7 +8,7 @@ import Views
 
 import Control.Monad.IO.Class  (liftIO)
 import Text.Printf             (printf)
-import Data.Aeson
+import Data.Aeson hiding       (json)
 import Data.Monoid
 import Data.Text               (pack, unpack)
 import Data.Text.Lazy.Encoding (decodeUtf8)
@@ -40,7 +40,7 @@ app url' table = do
         logStr (printf "Resolved %s -> %s" name url)
         redirect (pack url)
 
-  post root $ do
+  post "/" $ do
     url <- fmap unpack <$> param "url"
     case url of
       Nothing  -> html (render $ message "bad request")
@@ -57,7 +57,6 @@ app url' table = do
       Just url -> do
         name <- liftIO (insert table url)
         logStr (printf "Registered %s -> %s " url name)
-        let json = object [ "link"     .= pack (url' <> name)
-                          , "name"     .= name
-                          , "original" .= url ]
-        text (toStrict $ decodeUtf8 $ encode json)
+        json $ object [ "link"     .= pack (url' <> name)
+                      , "name"     .= name
+                      , "original" .= url ]