From aeeda475e937a885c984d3ad90eb8224d36957c6 Mon Sep 17 00:00:00 2001
From: Robin Heggelund Hansen <robin.heggelund@icloud.com>
Date: Tue, 21 Dec 2021 16:10:03 +0100
Subject: [PATCH] Create git module as basis for further work.

---
 builder/src/Git.hs | 16 ++++++++++++++++
 gren.cabal         |  1 +
 2 files changed, 17 insertions(+)
 create mode 100644 builder/src/Git.hs

diff --git a/builder/src/Git.hs b/builder/src/Git.hs
new file mode 100644
index 00000000..33e6929f
--- /dev/null
+++ b/builder/src/Git.hs
@@ -0,0 +1,16 @@
+module Git
+    ( checkInstalledGit
+    )
+    where
+
+
+import System.Directory (findExecutable)
+
+
+checkInstalledGit :: IO Bool
+checkInstalledGit = do
+   gitPath <- findExecutable "git"
+   return $ case gitPath of
+     Just _ -> True
+     Nothing -> False
+
diff --git a/gren.cabal b/gren.cabal
index 61e2aeef..a992c376 100644
--- a/gren.cabal
+++ b/gren.cabal
@@ -85,6 +85,7 @@ Executable gren
         File
         Generate
         Http
+        Git
         Reporting
         Reporting.Exit
         Reporting.Exit.Help