SQL Server client library implemented in Haskell

Usage Example

connect and close function could be used as follows.

{-# LANGUAGE OverloadedStrings #-}
module Main where

import Network.Socket (withSocketsDo)
import Control.Exception (bracket)

import Database.MSSQLServer.Connection
import Database.MSSQLServer.Query

main :: IO ()
main = do
  let info = defaultConnectInfo { connectHost = "192.168.0.1"
                                , connectPort = "1433"
                                , connectDatabase = "some_database"
                                , connectUser = "some_user"
                                , connectPassword = "some_password"
                                }
  withSocketsDo $
    bracket (connect info) close $ \conn -> do
    rs <- sql conn "SELECT 2 + 2" :: IO [Only Int]
    print rs