:clown-face: fixed a test

a6/src/SPC.hs

@@ -1,3 +1,4 @@
+{-# LANGUAGE InstanceSigs #-}
 module SPC
   ( -- * SPC startup
     SPC,
@@ -129,7 +130,6 @@ data SPCState = SPCState
     spcJobsDone :: [(JobId, JobDoneReason)],
     spcJobCounter :: JobId,
     spcWorkers :: [(WorkerName, Worker)]
-    -- TODO: you will need to add more fields.
   }
 
 -- | The monad in which the main SPC thread runs. This is a state
@@ -137,6 +137,7 @@ data SPCState = SPCState
 newtype SPCM a = SPCM (SPCState -> IO (a, SPCState))
 
 instance Functor SPCM where
+  fmap :: (a -> b) -> SPCM a -> SPCM b
   fmap = liftM
 
 instance Applicative SPCM where
@@ -230,6 +231,8 @@ handleMsg c = do
                 spcJobsDone =
                   (jobid, Done) : spcJobsDone state
               }
+        Nothing -> pure ()
+    _ -> pure ()
 
 deleteJob :: JobId -> [(JobId, (Job, Worker))] -> [(JobId, (Job, Worker))]
 deleteJob jobid list =

a6/src/SPC_Tests.hs

@@ -33,6 +33,6 @@ tests =
         testCase "worker-add-2-fail" $ do
           spc <- startSPC
           _ <- workerAdd spc "BD-1"
-          w <- workerAdd spc "R5-D4"
+          w <- workerAdd spc "BD-1"
           isRight w @?= False
       ]