yesod-examples-0.5.0: persistent/synopsis.lhs

---
title: Synopsis - Persistent
---
This example uses the sqlite backend for Persistent, since it can run in-memory and has no external dependencies.

> {-# LANGUAGE TypeFamilies, GeneralizedNewtypeDeriving, QuasiQuotes #-}
>
> import Database.Persist.Sqlite
> import Control.Monad.IO.Class (liftIO)
>
> mkPersist [$persist|Person
>     name String Eq
>     age Int update
> |]
>
> main :: IO ()
> main = withSqliteConn ":memory:" $ runSqlConn go
>
> go :: SqlPersist IO ()
> go = do
>   runMigration $ migrate (undefined :: Person)
>   key <- insert $ Person "Michael" 25
>   liftIO $ print key
>   p1 <- get key
>   liftIO $ print p1
>   update key [PersonAge 26]
>   p2 <- get key
>   liftIO $ print p2
>   p3 <- selectList [PersonNameEq "Michael"] [] 0 0
>   liftIO $ print p3
>   delete key
>   p4 <- selectList [PersonNameEq "Michael"] [] 0 0
>   liftIO $ print p4

The output of the above is:

    PersonId 1
    Just (Person {personName = "Michael", personAge = 25})
    Just (Person {personName = "Michael", personAge = 26})
    [(PersonId 1,Person {personName = "Michael", personAge = 26})]
    []