19 lines
303 B
Haskell
19 lines
303 B
Haskell
{-# LANGUAGE DeriveGeneric #-}
|
|
|
|
module Main (main) where
|
|
|
|
import GHC.Generics (Generic)
|
|
|
|
import Database.PostgreSQL.Opium (FromRow)
|
|
|
|
data Person = Person
|
|
{ name :: String
|
|
, age :: Int
|
|
-- , lovesCats :: Bool
|
|
} deriving (Generic)
|
|
|
|
instance FromRow Person where
|
|
|
|
main :: IO ()
|
|
main = putStrLn "TBD"
|