Commit 1fa00574 authored by Diederik van Arkel's avatar Diederik van Arkel

bugfix 'export environment'

parent 5aab8cda
...@@ -291,10 +291,10 @@ where ...@@ -291,10 +291,10 @@ where
# envname = env.target_name # envname = env.target_name
# envpath = MakeFullPathname EnvsDir (envname +++ ".env") # envpath = MakeFullPathname EnvsDir (envname +++ ".env")
// select file // select file
# (envpath,ps) = selectOutputFile "" envpath ps # (envpath,ps) = selectOutputFile "Save Environment As..." envpath ps
| isNothing envpath = (ls,ps) | isNothing envpath = (ls,ps)
# envpath = fromJust envpath # envpath = fromJust envpath
# (ok,ps) = saveEnvironments envspath [env] ps # (ok,ps) = saveEnvironments envpath [env] ps
| not ok | not ok
# ps = okNotice ["Unable to save environment."] ps # ps = okNotice ["Unable to save environment."] ps
= (ls,ps) = (ls,ps)
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment