Clean the template

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"