{-# LANGUAGE OverloadedStrings #-}
import Database.PostgreSQL.Simple
import Control.Monad
import Control.Applicative

main = do
  conn <- connect defaultConnectInfo {connectHost = "localhost", connectUser="testuser", connectPassword = "testpass", connectDatabase ="dbs"}
  xs <- (query_ conn "select matrikelnummer from Student" :: IO[Only [Char]])
  mapM_ print xs