Fix lock not being released.

Author: robinheghan

integration-tests/src/Main.gren

@@ -137,7 +137,10 @@ update msg model =
                 Lock.LockReleased { path, model = lockModel, command } ->
                     { model = { model | locks = lockModel }
                     , command =
-                        log "Lock Released" model.stdout
+                        Cmd.batch
+                            [ log "Lock Released" model.stdout
+                            , Cmd.map LockMsg command
+                            ]
                     }
 
                 Lock.AlreadyLocked path ->

integration-tests/test/commands.mjs

@@ -67,7 +67,10 @@ describe("compiler-node", () => {
         .cwd(rootDir)
         .fork("bin/app", ["lock", "10"], {})
         .stdout("Lock Aquired")
-        .stdout("Lock Released");
+        .stdout("Lock Released")
+        .expect(({ assert }) => {
+          assert.equal(false, fs.existsSync(".lock"))
+        });
     });
   });
 });

src/FileSystem/Lock.gren

@@ -133,8 +133,8 @@ update fsPerm msg model =
                 { path = path
                 , model = Dict.remove (Path.toPosixString lockPath) model
                 , command =
-                    FileSystem.remove fsPerm { recursive = False, ignoreErrors = False } lockPath
-                        |> Task.onError (\_ -> Task.succeed lockPath)
+                    FileSystem.remove fsPerm { recursive = True, ignoreErrors = False } lockPath
+                        |> Task.onError (\err -> Task.succeed lockPath)
                         |> Task.execute
                 }
 
@@ -149,7 +149,7 @@ update fsPerm msg model =
         LockMetaCheck { path, result = Ok { time, meta } } ->
             if Time.posixToMillis time - Time.posixToMillis meta.lastAccessed > 5000 then
                 -- Lock is stale, let's try again
-                FileSystem.remove fsPerm { recursive = False, ignoreErrors = False } path
+                FileSystem.remove fsPerm { recursive = True, ignoreErrors = False } path
                     |> Task.onError (\_ -> Task.succeed path)
                     |> Task.perform (\_ -> Lock (fromLockPath path))
                     |> Working