From 29f6d2b04a8080ae8bc9bed704dc9151f29ff849 Mon Sep 17 00:00:00 2001
From: Franklin Antony <franklinanton.007@gmail.com>
Date: Thu, 10 Dec 2020 12:53:13 +0000
Subject: [PATCH] Updated comments

---
 app/Main.hs     | 9 +++++----
 src/Database.hs | 2 +-
 2 files changed, 6 insertions(+), 5 deletions(-)

diff --git a/app/Main.hs b/app/Main.hs
index 7c30a07..c4cec8a 100644
--- a/app/Main.hs
+++ b/app/Main.hs
@@ -69,15 +69,16 @@ main = do
           putStrLn $ unlines names
         _ -> syntaxErrorForIsGlobal
       -- TODO More Query
-      putStrLn $ "\nPreparing to write into the JSON file "
+      
+      putStrLn "\nPreparing to write into the JSON file... "
       putStrLn "\nWriting ..."
       jsonValue <- convertToJSON conn
-      writeFile "DB.json" (jsonValue)
+      writeFile "DB.json" jsonValue
       putStrLn "\nFinished Writing!"
 
 
 syntaxErrorForIsGlobal :: IO ()
 syntaxErrorForIsGlobal = putStrLn 
-      "Invalid Input\n\
+      "Invalid Input for the holiday type\n\
       \\n\
-      \Please either enter Y or N\n"
\ No newline at end of file
+      \Please either enter Y or N next time\n"
\ No newline at end of file
diff --git a/src/Database.hs b/src/Database.hs
index 268a974..7429e7f 100644
--- a/src/Database.hs
+++ b/src/Database.hs
@@ -134,7 +134,7 @@ holidayToSqlValues countries =
     toSql $ fixed countries
   ]
 
--- |This function performs an action (ie. to insert the values into holidays)
+-- | This function performs an action (ie. to insert the values into holidays)
 
 prepareInsertRecordStmt :: Connection -> IO Statement
 prepareInsertRecordStmt conn = prepare conn "INSERT INTO holidays VALUES (?,?)"