maralorn/nixos-config
1
0
Fork 0
Code Wiki Activity

Fix gitolite hooks

Browse source
This commit is contained in:
Malte Brandy 2020-01-19 19:34:36 +01:00
parent 5f599e235a
commit a276483383
1 changed files with 6 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
system/git.nix
View file

@ -19,8 +19,10 @@ let
} ''
checkout :: String -> IO FilePath
checkout pwd = (mktemp "-d" |> captureTrim)
>>= ((ap (<$) $ git "clone" pwd) . LBSC.unpack)
checkout path = do
(decodeUtf8 -> dir) <- mktemp "-d" |> captureTrim
git "clone" path dir
pure dir
main = do
mirror <- lookupEnv "GL_OPTION_MIRROR"
@ -29,9 +31,9 @@ let
git "push" "--all" "-f" mirror
deploy <- lookupEnv "GL_OPTION_WEB_DEPLOY"
for_ deploy $ \deploy -> do
path <- pwd |> captureTrim
(decodeUtf8 -> path) <- pwd |> captureTrim
echo ([i|Deploying build to /var/www/#{deploy}|] :: String)
bracket (checkout $ LBSC.unpack path)(rm "-rf") $ \dir -> withCurrentDirectory dir $ nix "build" "-o" ([i|/var/www/#{deploy}|] :: String)
bracket (checkout path) (rm "-rf") $ \dir -> withCurrentDirectory dir $ nix "build" "-o" ([i|/var/www/#{deploy}|] :: String)
echo "Done"
test <- lookupEnv "GL_OPTION_TEST"
for_ test $ \_ -> do