YesodSlug.hs

{-# LANGUAGE TypeFamilies, QuasiQuotes, OverloadedStrings, MultiParamTypeClasses, TemplateHaskell #-}
{-# LANGUAGE GADTs #-}
import Yesod
import Control.Applicative
import qualified Data.Text as T
import Data.Text (Text)

class YesodSlug site table where
    type Slug table
    slug :: table -> Text



--------- Example usage

data MySite = MySite

getRootR = defaultLayout $ addHamlet [hamlet| hello |]

mkYesod "MySite" [parseRoutes|
/ RootR GET
|]

share [mkPersist sqlSettings, mkMigrate "migrateAll"] [persist|
BlogPost
    title Text
    slug  Text
    UniqueSlug slug
|]

instance Yesod MySite where approot _ = ""

main = warpDebug 3000 MySite