projects
/
xyz.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(from parent 1:
45bc5cf
)
Add an option to push
author
Cameron Ball
<cameron@moodle.com>
Fri, 14 Jun 2019 06:24:21 +0000
(14:24 +0800)
committer
Cameron Ball
<cameron@moodle.com>
Fri, 14 Jun 2019 06:24:21 +0000
(14:24 +0800)
app/Main.hs
patch
|
blob
|
history
diff --git
a/app/Main.hs
b/app/Main.hs
index
0b0c25b
..
267ca5f
100644
(file)
--- 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>",