1
2
3
4
5
6
7
8
9
10
11
12
13
14
| {-# LANGUAGE OverloadedStrings #-}
module Models where
import Database.SQLite.Simple.FromRow
data Item = Item
{ id :: Int
, name :: String
, description :: String
}
instance FromRow Item where
fromRow = Item <$> field <*> field <*> field
|