Skip to content
GitLab
Projects
Groups
Snippets
/
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in
Toggle navigation
Menu
Open sidebar
argo
argonix
Commits
bae08de9
Commit
bae08de9
authored
Mar 01, 2019
by
Valentin Reis
Browse files
more verbosity
parent
406b8a77
Pipeline
#5767
passed with stage
in 21 seconds
Changes
1
Pipelines
1
Hide whitespace changes
Inline
Side-by-side
src/Argonix.hs
View file @
bae08de9
...
...
@@ -288,14 +288,17 @@ setupSystem sa = do
createAndSetTMPDIR
name
=
do
{-localpath <- (</> fromText name) <$> pwd-}
let
path
=
"/tmp"
</>
fromText
name
testpath
path
>>=
flip
when
(
rmtree
path
>>
mkdir
path
)
testpath
path
>>=
flip
when
(
rmtree
path
>>
mkdir
path
)
case
toText
path
of
Right
p
->
sh
$
do
inshell
(
"chmod 777 "
<>
p
)
empty
inshell
(
"ln -s "
<>
p
<>
name
)
empty
shell
(
"chmod 777 "
<>
p
)
empty
>>=
\
case
ExitSuccess
->
printf
(
"Successfully chmod"
%
s
)
p
ExitFailure
_
->
die
"failed at chmod"
shell
(
"ln -s "
<>
p
<>
name
)
empty
>>=
\
case
ExitSuccess
->
printf
(
"Successfully ln -s"
%
s
)
p
ExitFailure
_
->
die
"failed at ln -s"
export
"TMPDIR"
p
printInfo
$
format
(
"TMPDIR exported to "
%
s
)
p
printInfo
$
format
(
"TMPDIR exported to "
%
s
)
p
Left
_
->
die
"Path error when setting TMPDIR"
nixArguments
::
String
->
ArgsCommon
->
[
String
]
...
...
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new file
.
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment