{-# 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"