From 4bf57046def14a89bf270a8a2f2bbc52c3cd9ebf Mon Sep 17 00:00:00 2001
From: Cameron Ball <cameron@moodle.com>
Date: Fri, 14 Jun 2019 14:24:21 +0800
Subject: [PATCH] Add an option to push

---
 app/Main.hs | 7 +++++++
 1 file changed, 7 insertions(+)

diff --git a/app/Main.hs b/app/Main.hs
index 0b0c25b..267ca5f 100644
--- a/app/Main.hs
+++ b/app/Main.hs
@@ -82,6 +82,13 @@ entry = do
     else return ()
   build
 
+  putStrLn "Do you want to push this entry?"
+  push <- getLine
+
+  if (push == "y")
+    then (callCommand $ "git add . && git commit -m \"" ++ entryName ++ "\" && git push") >> putStrLn "Thank for using xyz"
+    else return ()
+
 usage :: IO ()
 usage =  putStr . ununlines $ [
   "usage: xyz <command>",
-- 
2.11.0