select :: Query -> String -> Connection -> IO [Book]
select prepStmt param cn = query cn prepStmt [param]
select :: Query -> String -> Connection -> IO [Book]
select prepStmt param cn = query cn prepStmt [param]
select prepStmt param cn = query cn prepStmt [param]