breve/Shortener/Common.hs

{-# LANGUAGE MultiParamTypeClasses #-}
module Shortener.Common where

import Control.Applicative
import Web.Simple
import Web.Simple.Templates

data AppSettings = AppSettings { }

newAppSettings :: IO AppSettings
newAppSettings = return AppSettings

instance HasTemplates IO AppSettings where
  defaultLayout = Just <$> getTemplate "layouts/main.html"