Базовый пример использования HaskellDB для отмены сопоставления записей таблицы

Предположим, у меня есть следующее определение таблицы (PostgreSQL):

CREATE TABLE books (
    id serial NOT NULL,
    title character varying NOT NULL,

    PRIMARY KEY (id)
);

И следующее определение записи:

data Book = 
  { id :: Int
  , title :: String
  }

Каков базовый пример функции «unmap» для запроса всех книг в база данных, allBooks :: Database -> IO [Book] ?