Generate error event when deploy target directory is missing

grisp · Nov 9, 2021 · a917f36 · a917f36
1 parent 750944a
commit a917f36
Showing 1 changed file with 6 additions and 2 deletions.
diff --git a/src/grisp_tools_deploy.erl b/src/grisp_tools_deploy.erl
@@ -142,9 +142,13 @@ copy_release(#{release := Release, copy := Copy} = State0) ->
         true  -> "cp -Rf";
         false -> "cp -R"
     end,
+    State2 = case filelib:is_dir(Dest) of
+        false -> event(State1, [release, {error, target_dir_missing, Dest}]);
+        true -> State1
+    end,
     Command = string:join([CopyExe, qoute(Source ++ "/"), qoute(Target)], " "),
-    {Output, State2} = shell(State1, Command),
-    event(State2, [release, {copy, {result, Output}}]).
+    {Output, State3} = shell(State2, Command),
+    event(State3, [release, {copy, {result, Output}}]).
 
 qoute(String) -> "\"" ++ String ++ "\"".