1
0
Fork 0

Try buildlogFile

This commit is contained in:
Malte Brandy 2020-06-26 19:14:45 +02:00
parent 1c2d353120
commit 012ef2b62f
No known key found for this signature in database
GPG key ID: 226A2D41EF5378C9

View file

@ -7,11 +7,15 @@ let
homes = self.lib.attrNames (import ../home/modes.nix); homes = self.lib.attrNames (import ../home/modes.nix);
keys = [ "default" "apollo" "hera" ]; keys = [ "default" "apollo" "hera" ];
haskellBody = name: commandline: '' haskellBody = name: commandline: ''
command = ${commandline}
main = do main = do
(configDir:hostname:args) <- getArgs (configDir:hostname:args) <- getArgs
paths <- myNixPath $ toText configDir paths <- myNixPath $ toText configDir
say [i|Trying to build ${name} config for #{hostname} ...|] say [i|Trying to build ${name} config for #{hostname} ...|]
${commandline} bracket
(decodeUtf8 <$> mktemp |> captureTrim)
rm
\logFile -> onException (command &> Append logFile &!> Append logFile) (cat logFile)
say [i|Build of ${name} config for #{hostname} was successful.|] say [i|Build of ${name} config for #{hostname} was successful.|]
''; '';
in { in {