14 lines
351 B
Haskell
14 lines
351 B
Haskell
{-# 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" |