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

bugfix 'export environment'

parent 5aab8cda
......@@ -291,10 +291,10 @@ where
# envname = env.target_name
# envpath = MakeFullPathname EnvsDir (envname +++ ".env")
// select file
# (envpath,ps) = selectOutputFile "" envpath ps
# (envpath,ps) = selectOutputFile "Save Environment As..." envpath ps
| isNothing envpath = (ls,ps)
# envpath = fromJust envpath
# (ok,ps) = saveEnvironments envspath [env] ps
# (ok,ps) = saveEnvironments envpath [env] ps
| not ok
# ps = okNotice ["Unable to save environment."] 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