Test fails to run

[poscat0x04]

test/Haskell/Debug/Adapter/ControlSpec.hs:53:33: error:
    • Couldn't match expected type ‘IO ()’
                  with actual type ‘S.Handle -> IO ()’
    • Probable cause: ‘run’ is applied to too few arguments
      In the first argument of ‘Concurrently’, namely
        ‘(run fromClient toClient)’
      In the second argument of ‘(<$>)’, namely
        ‘Concurrently (run fromClient toClient)’
      In the first argument of ‘(<*>)’, namely
        ‘(,) <$> Concurrently (run fromClient toClient)’
   |
53 |               <$> Concurrently (run fromClient toClient)
   |                                 ^^^^^^^^^^^^^^^^^^^^^^^

test/Haskell/Debug/Adapter/ControlSpec.hs:53:37: error:
    • Couldn't match expected type ‘ArgData’
                  with actual type ‘S.Handle’
    • In the first argument of ‘run’, namely ‘fromClient’
      In the first argument of ‘Concurrently’, namely
        ‘(run fromClient toClient)’
      In the second argument of ‘(<$>)’, namely
        ‘Concurrently (run fromClient toClient)’
   |
53 |               <$> Concurrently (run fromClient toClient)
   |                                     ^^^^^^^^^^

[phoityne]

Thank you for the report. Fixed.