Add requestHandler field to Request

test/AFRPSpec.hs

@@ -21,7 +21,7 @@ import Test.Hspec
 import Test.Hspec.Hedgehog
 
 fakeRequest :: Request
-fakeRequest = Request (sec 0) utc nil
+fakeRequest = Request (sec 0) utc nil "test"
 
 sec :: Integer -> UTCTime
 sec n = UTCTime (toEnum 0) (fromIntegral n)
@@ -42,7 +42,7 @@ runTimed m = go (runMealy m id)
   where
     go _ [] = []
     go w ((s, a) : as) =
-      case runIdentity (stepAuto w (Request (sec s) utc nil) a) of
+      case runIdentity (stepAuto w (Request (sec s) utc nil "test") a) of
         (b, w') -> b : go w' as
 
 -- | A minimal State monad for observing effectful arrows (e.g. whenA gating).