Add requestHandler field to Request

2026-09-25 12:59:14 +03:00
parent bd5f97f96e
commit 894d8f8436
6 changed files with 13 additions and 12 deletions
@@ -47,7 +47,7 @@ spec = do

 req :: Int -> Request
 req n = Request (UTCTime (toEnum 0) (fromIntegral (0 :: Int))) utc
-          (fromJust (fromString uuid))
+          (fromJust (fromString uuid)) "test"
  where
    pad i = replicate (12 - length (show i)) '0' <> show i
    uuid = "00000000-0000-0000-0000-" <> pad n