fix comment syntax in Route for 8.10 compat

scotty-web · Dec 3, 2023 · d8edaef · d8edaef
1 parent 8158a8c
commit d8edaef
Showing 1 changed file with 2 additions and 4 deletions.
diff --git a/Web/Scotty/Route.hs b/Web/Scotty/Route.hs
@@ -111,10 +111,8 @@ route :: (MonadUnliftIO m) =>
       -> Maybe (ErrorHandler m) -> Maybe StdMethod -> RoutePattern -> ActionT m () -> BodyInfo -> Middleware m
 route opts h method pat action bodyInfo app req =
   let tryNext = app req
-        {- |
-          We match all methods in the case where 'method' is 'Nothing'.
-          See https://github.com/scotty-web/scotty/issues/196 and 'matchAny'
-        -}
+      -- We match all methods in the case where 'method' is 'Nothing'.
+      -- See https://github.com/scotty-web/scotty/issues/196 and 'matchAny'
       methodMatches :: Bool
       methodMatches = maybe True (\x -> (Right x == parseMethod (requestMethod req))) method