From 90afb6593be5dac3883dceae93b8b457f291b754 Mon Sep 17 00:00:00 2001
From: rnhmjoj <micheleguerinirocco@me.com>
Date: Wed, 8 Apr 2015 13:55:36 +0200
Subject: [PATCH] Clean the template

---
 Shortener/Common.hs | 6 ++----
 1 file changed, 2 insertions(+), 4 deletions(-)

diff --git a/Shortener/Common.hs b/Shortener/Common.hs
index 8c554a8..0f0f774 100644
--- a/Shortener/Common.hs
+++ b/Shortener/Common.hs
@@ -5,12 +5,10 @@ import Control.Applicative
 import Web.Simple
 import Web.Simple.Templates
 
-data AppSettings = AppSettings {  }
+data AppSettings = AppSettings { }
 
 newAppSettings :: IO AppSettings
-newAppSettings = do
-  
-  return $ AppSettings
+newAppSettings = return AppSettings
 
 instance HasTemplates IO AppSettings where
   defaultLayout = Just <$> getTemplate "layouts/main.html"
\ No newline at end of file