{-# LANGUAGE TypeFamilies, QuasiQuotes, GeneralizedNewtypeDeriving, TemplateHaskell, MultiParamTypeClasses #-}
module Model where

import Yesod
import Data.Time (Day)
import Database.Persist.TH
import Database.Persist.Sqlite

share [mkPersist, mkMigrate "migrateAll"] [persist|
Entry
   title String
   day Day Desc
   content Html
   deriving
|]