yesod-mongodb.hs

{-# LANGUAGE TypeFamilies, QuasiQuotes, MultiParamTypeClasses, TemplateHaskell #-}
import Yesod
import Text.Hamlet
import Database.Persist
import Database.Persist.MongoDB
import Database.MongoDB

import Data.ByteString.Lazy.UTF8

import Control.Monad

data Links = Links

mkYesod "Links" [$parseRoutes|
/ HomeR GET
|]

instance Yesod Links where
    approot _ = ""

getHomeR = defaultLayout $ do
  --pages  <- Database.Persist.MongoDB.select [] []
  pages  <- Database.MongoDB.select [] []

  addHamlet[$hamlet|
    <h1>Hello
  |]

main = withMongoDBConn "localhost" $ runMongoDBConn $ do
  warpDebug 3000 $ Links