mirror of
https://github.com/gren-lang/compiler.git
synced 2024-09-11 16:56:29 +03:00
Create git module as basis for further work.
This commit is contained in:
parent
b7b27e23e0
commit
aeeda475e9
16
builder/src/Git.hs
Normal file
16
builder/src/Git.hs
Normal file
@ -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
|
||||||
|
|
@ -85,6 +85,7 @@ Executable gren
|
|||||||
File
|
File
|
||||||
Generate
|
Generate
|
||||||
Http
|
Http
|
||||||
|
Git
|
||||||
Reporting
|
Reporting
|
||||||
Reporting.Exit
|
Reporting.Exit
|
||||||
Reporting.Exit.Help
|
Reporting.Exit.Help
|
||||||
|
Loading…
Reference in New Issue
Block a user