From 08d89b166360b4062f952b612b86e0a747aadd03 Mon Sep 17 00:00:00 2001
From: Sanchayan Maity <maitysanchayan@gmail.com>
Date: Tue, 28 Jul 2020 11:59:00 +0530
Subject: [PATCH] app: Main: Add a running example of the DSL

Signed-off-by: Sanchayan Maity <maitysanchayan@gmail.com>
---
 app/Main.hs | 17 ++++++++++++++++-
 1 file changed, 16 insertions(+), 1 deletion(-)

diff --git a/app/Main.hs b/app/Main.hs
index 4b50bda..c2db0c0 100644
--- a/app/Main.hs
+++ b/app/Main.hs
@@ -1,6 +1,21 @@
+{-# 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 = putStrLn "Free monad example"
+main = do
+  putStrLn "Free monad example"
+  conn <- connect defaultConnectInfo {
+    connectDatabase = "postgres"
+  }
+  runDSL $ dslOperations conn