21 lines
468 B
Haskell
21 lines
468 B
Haskell
{-# LANGUAGE OverloadedStrings #-}
|
|
|
|
module Main where
|
|
|
|
import Database.PostgreSQL.Simple
|
|
import Data.Text (pack)
|
|
import Lib
|
|
|
|
dslOperations :: Connection -> DSL ()
|
|
dslOperations conn = do
|
|
logMsg "Logging from inside the DSL"
|
|
xs <- runQuery conn "select 2 + 2"
|
|
logMsg $ pack $ show (xs :: [Only Int])
|
|
|
|
main :: IO ()
|
|
main = do
|
|
putStrLn "Free monad example"
|
|
conn <- connect defaultConnectInfo {
|
|
connectDatabase = "postgres"
|
|
}
|
|
runDSL $ dslOperations conn
|