gistfile1.hs

import Database.HDBC
import Database.HDBC.Sqlite3
import qualified Data.Convertible.Base as C

get :: forall a. C.Convertible SqlValue a => [[SqlValue]] -> [[a]]
get sql = map f sql
	where f row = map fromSql row

main = do
	connection <- connectSqlite3 "development.sqlite3"
	result <- quickQuery connection "SELECT * from cards where id < 10" []
	print result
	disconnect connection