Commit 5f751644 authored by John van Groningen's avatar John van Groningen
Browse files

don't postlink if updating the project fails

parent 1654e9d3
...@@ -160,7 +160,9 @@ where ...@@ -160,7 +160,9 @@ where
= ps = ps
= ps = ps
PostlinkFase project ps PostlinkFase ok project ps
| not ok
= ps
# (postlink,project) = PR_GetPostlink project # (postlink,project) = PR_GetPostlink project
| isJust postlink | isJust postlink
# (Just post_link) = postlink # (Just post_link) = postlink
...@@ -180,7 +182,7 @@ where ...@@ -180,7 +182,7 @@ where
# ps = ClearCompilerCache` ps # ps = ClearCompilerCache` ps
= MakeTheProject False fileinfo libsinfo abccache project cleanup` ps = MakeTheProject False fileinfo libsinfo abccache project cleanup` ps
# ps = PostlinkFase project ps # ps = PostlinkFase ok project ps
# ps = showInfo (Level1 "Finished making.") ps # ps = showInfo (Level1 "Finished making.") ps
# ps = setProject project ps # ps = setProject project 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