Avoid wildcard

This ensures we'll break and be intentional if the constructors change in the future.
freckle · Jul 24, 2024 · a202c37 · a202c37
1 parent dc558e7
commit a202c37
Showing 1 changed file with 3 additions and 1 deletion.
diff --git a/Blammo-wai/src/Network/Wai/Middleware/Logging.hs b/Blammo-wai/src/Network/Wai/Middleware/Logging.hs
@@ -155,8 +155,10 @@ requestLoggerWith config env app req respond =
   getTime = Clock.getTime Clock.Monotonic
   toMillis x = fromIntegral (Clock.toNanoSecs x) / nsPerMs
   isRaw = \case
+    ResponseFile {} -> False
+    ResponseBuilder {} -> False
+    ResponseStream {} -> False
     ResponseRaw {} -> True
-    _ -> False
 
 logRawResponse :: MonadLogger m => Config -> Double -> Request -> m ()
 logRawResponse config@Config {..} duration req =