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