scarf-sh/tie
1
1
Fork 0
mirror of https://github.com/scarf-sh/tie.git synced 2024-11-25 19:01:32 +03:00
Code Issues Packages Projects Releases Wiki Activity

update golden test

Browse Source
This commit is contained in:
piq9117 2024-03-01 11:27:14 -05:00 committed by Alexander Biehl
parent 5e1e3ab704
commit efcc04057d
15 changed files with 75 additions and 75 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
test/golden/additional-properties.yaml.out
View File

@ -278,13 +278,13 @@ requiredQueryParameter ::
requiredQueryParameter name withParam = \request respond -> requiredQueryParameter name withParam = \request respond ->
case List.lookup name (Wai.queryString request) of case List.lookup name (Wai.queryString request) of
Nothing -> Nothing ->
respond (Wai.responseBuilder (toEnum 400) [] mempty) respond (Wai.responseBuilder (toEnum 400) [] ("Missing query parameter: " <> name))
Just Nothing -> Just Nothing ->
respond (Wai.responseBuilder (toEnum 400) [] mempty) respond (Wai.responseBuilder (toEnum 400) [] ("Missing query parameter: " <> name))
Just (Just value) -> Just (Just value) ->
case parseQueryParam (Text.decodeUtf8 value) of case parseQueryParam (Text.decodeUtf8 value) of
Left _err -> Left _err ->
respond (Wai.responseBuilder (toEnum 400) [] mempty) respond (Wai.responseBuilder (toEnum 400) [] ("Unable to recognize query parameter: " <> name))
Right x -> Right x ->
withParam x request respond withParam x request respond
{-# INLINEABLE requiredQueryParameter #-} {-# INLINEABLE requiredQueryParameter #-}
@ -304,11 +304,11 @@ optionalQueryParameter name allowEmpty withParam = \request respond ->
| allowEmpty -> | allowEmpty ->
withParam Nothing request respond withParam Nothing request respond
| otherwise -> | otherwise ->
respond (Wai.responseBuilder (toEnum 400) [] mempty) respond (Wai.responseBuilder (toEnum 400) [] ("Missing query parameter: " <> name))
Just (Just value) -> Just (Just value) ->
case parseQueryParam (Text.decodeUtf8 value) of case parseQueryParam (Text.decodeUtf8 value) of
Left _err -> Left _err ->
respond (Wai.responseBuilder (toEnum 400) [] mempty) respond (Wai.responseBuilder (toEnum 400) [] ("Unable to recognize query parameter: " <> name))
Right x -> Right x ->
withParam (Just x) request respond withParam (Just x) request respond
{-# INLINEABLE optionalQueryParameter #-} {-# INLINEABLE optionalQueryParameter #-}

10
test/golden/bug-1.yaml.out
View File

@ -264,13 +264,13 @@ requiredQueryParameter ::
requiredQueryParameter name withParam = \request respond -> requiredQueryParameter name withParam = \request respond ->
case List.lookup name (Wai.queryString request) of case List.lookup name (Wai.queryString request) of
Nothing -> Nothing ->
respond (Wai.responseBuilder (toEnum 400) [] mempty) respond (Wai.responseBuilder (toEnum 400) [] ("Missing query parameter: " <> name))
Just Nothing -> Just Nothing ->
respond (Wai.responseBuilder (toEnum 400) [] mempty) respond (Wai.responseBuilder (toEnum 400) [] ("Missing query parameter: " <> name))
Just (Just value) -> Just (Just value) ->
case parseQueryParam (Text.decodeUtf8 value) of case parseQueryParam (Text.decodeUtf8 value) of
Left _err -> Left _err ->
respond (Wai.responseBuilder (toEnum 400) [] mempty) respond (Wai.responseBuilder (toEnum 400) [] ("Unable to recognize query parameter: " <> name))
Right x -> Right x ->
withParam x request respond withParam x request respond
{-# INLINEABLE requiredQueryParameter #-} {-# INLINEABLE requiredQueryParameter #-}
@ -290,11 +290,11 @@ optionalQueryParameter name allowEmpty withParam = \request respond ->
| allowEmpty -> | allowEmpty ->
withParam Nothing request respond withParam Nothing request respond
| otherwise -> | otherwise ->
respond (Wai.responseBuilder (toEnum 400) [] mempty) respond (Wai.responseBuilder (toEnum 400) [] ("Missing query parameter: " <> name))
Just (Just value) -> Just (Just value) ->
case parseQueryParam (Text.decodeUtf8 value) of case parseQueryParam (Text.decodeUtf8 value) of
Left _err -> Left _err ->
respond (Wai.responseBuilder (toEnum 400) [] mempty) respond (Wai.responseBuilder (toEnum 400) [] ("Unable to recognize query parameter: " <> name))
Right x -> Right x ->
withParam (Just x) request respond withParam (Just x) request respond
{-# INLINEABLE optionalQueryParameter #-} {-# INLINEABLE optionalQueryParameter #-}

10
test/golden/bug-2.yaml.out
View File

@ -264,13 +264,13 @@ requiredQueryParameter ::
requiredQueryParameter name withParam = \request respond -> requiredQueryParameter name withParam = \request respond ->
case List.lookup name (Wai.queryString request) of case List.lookup name (Wai.queryString request) of
Nothing -> Nothing ->
respond (Wai.responseBuilder (toEnum 400) [] mempty) respond (Wai.responseBuilder (toEnum 400) [] ("Missing query parameter: " <> name))
Just Nothing -> Just Nothing ->
respond (Wai.responseBuilder (toEnum 400) [] mempty) respond (Wai.responseBuilder (toEnum 400) [] ("Missing query parameter: " <> name))
Just (Just value) -> Just (Just value) ->
case parseQueryParam (Text.decodeUtf8 value) of case parseQueryParam (Text.decodeUtf8 value) of
Left _err -> Left _err ->
respond (Wai.responseBuilder (toEnum 400) [] mempty) respond (Wai.responseBuilder (toEnum 400) [] ("Unable to recognize query parameter: " <> name))
Right x -> Right x ->
withParam x request respond withParam x request respond
{-# INLINEABLE requiredQueryParameter #-} {-# INLINEABLE requiredQueryParameter #-}
@ -290,11 +290,11 @@ optionalQueryParameter name allowEmpty withParam = \request respond ->
| allowEmpty -> | allowEmpty ->
withParam Nothing request respond withParam Nothing request respond
| otherwise -> | otherwise ->
respond (Wai.responseBuilder (toEnum 400) [] mempty) respond (Wai.responseBuilder (toEnum 400) [] ("Missing query parameter: " <> name))
Just (Just value) -> Just (Just value) ->
case parseQueryParam (Text.decodeUtf8 value) of case parseQueryParam (Text.decodeUtf8 value) of
Left _err -> Left _err ->
respond (Wai.responseBuilder (toEnum 400) [] mempty) respond (Wai.responseBuilder (toEnum 400) [] ("Unable to recognize query parameter: " <> name))
Right x -> Right x ->
withParam (Just x) request respond withParam (Just x) request respond
{-# INLINEABLE optionalQueryParameter #-} {-# INLINEABLE optionalQueryParameter #-}

10
test/golden/csv.yaml.out
View File

@ -278,13 +278,13 @@ requiredQueryParameter ::
requiredQueryParameter name withParam = \request respond -> requiredQueryParameter name withParam = \request respond ->
case List.lookup name (Wai.queryString request) of case List.lookup name (Wai.queryString request) of
Nothing -> Nothing ->
respond (Wai.responseBuilder (toEnum 400) [] mempty) respond (Wai.responseBuilder (toEnum 400) [] ("Missing query parameter: " <> name))
Just Nothing -> Just Nothing ->
respond (Wai.responseBuilder (toEnum 400) [] mempty) respond (Wai.responseBuilder (toEnum 400) [] ("Missing query parameter: " <> name))
Just (Just value) -> Just (Just value) ->
case parseQueryParam (Text.decodeUtf8 value) of case parseQueryParam (Text.decodeUtf8 value) of
Left _err -> Left _err ->
respond (Wai.responseBuilder (toEnum 400) [] mempty) respond (Wai.responseBuilder (toEnum 400) [] ("Unable to recognize query parameter: " <> name))
Right x -> Right x ->
withParam x request respond withParam x request respond
{-# INLINEABLE requiredQueryParameter #-} {-# INLINEABLE requiredQueryParameter #-}
@ -304,11 +304,11 @@ optionalQueryParameter name allowEmpty withParam = \request respond ->
| allowEmpty -> | allowEmpty ->
withParam Nothing request respond withParam Nothing request respond
| otherwise -> | otherwise ->
respond (Wai.responseBuilder (toEnum 400) [] mempty) respond (Wai.responseBuilder (toEnum 400) [] ("Missing query parameter: " <> name))
Just (Just value) -> Just (Just value) ->
case parseQueryParam (Text.decodeUtf8 value) of case parseQueryParam (Text.decodeUtf8 value) of
Left _err -> Left _err ->
respond (Wai.responseBuilder (toEnum 400) [] mempty) respond (Wai.responseBuilder (toEnum 400) [] ("Unable to recognize query parameter: " <> name))
Right x -> Right x ->
withParam (Just x) request respond withParam (Just x) request respond
{-# INLINEABLE optionalQueryParameter #-} {-# INLINEABLE optionalQueryParameter #-}

10
test/golden/datetime.yaml.out
View File

@ -264,13 +264,13 @@ requiredQueryParameter ::
requiredQueryParameter name withParam = \request respond -> requiredQueryParameter name withParam = \request respond ->
case List.lookup name (Wai.queryString request) of case List.lookup name (Wai.queryString request) of
Nothing -> Nothing ->
respond (Wai.responseBuilder (toEnum 400) [] mempty) respond (Wai.responseBuilder (toEnum 400) [] ("Missing query parameter: " <> name))
Just Nothing -> Just Nothing ->
respond (Wai.responseBuilder (toEnum 400) [] mempty) respond (Wai.responseBuilder (toEnum 400) [] ("Missing query parameter: " <> name))
Just (Just value) -> Just (Just value) ->
case parseQueryParam (Text.decodeUtf8 value) of case parseQueryParam (Text.decodeUtf8 value) of
Left _err -> Left _err ->
respond (Wai.responseBuilder (toEnum 400) [] mempty) respond (Wai.responseBuilder (toEnum 400) [] ("Unable to recognize query parameter: " <> name))
Right x -> Right x ->
withParam x request respond withParam x request respond
{-# INLINEABLE requiredQueryParameter #-} {-# INLINEABLE requiredQueryParameter #-}
@ -290,11 +290,11 @@ optionalQueryParameter name allowEmpty withParam = \request respond ->
| allowEmpty -> | allowEmpty ->
withParam Nothing request respond withParam Nothing request respond
| otherwise -> | otherwise ->
respond (Wai.responseBuilder (toEnum 400) [] mempty) respond (Wai.responseBuilder (toEnum 400) [] ("Missing query parameter: " <> name))
Just (Just value) -> Just (Just value) ->
case parseQueryParam (Text.decodeUtf8 value) of case parseQueryParam (Text.decodeUtf8 value) of
Left _err -> Left _err ->
respond (Wai.responseBuilder (toEnum 400) [] mempty) respond (Wai.responseBuilder (toEnum 400) [] ("Unable to recognize query parameter: " <> name))
Right x -> Right x ->
withParam (Just x) request respond withParam (Just x) request respond
{-# INLINEABLE optionalQueryParameter #-} {-# INLINEABLE optionalQueryParameter #-}

10
test/golden/enum-bug.yaml.out
View File

@ -267,13 +267,13 @@ requiredQueryParameter ::
requiredQueryParameter name withParam = \request respond -> requiredQueryParameter name withParam = \request respond ->
case List.lookup name (Wai.queryString request) of case List.lookup name (Wai.queryString request) of
Nothing -> Nothing ->
respond (Wai.responseBuilder (toEnum 400) [] mempty) respond (Wai.responseBuilder (toEnum 400) [] ("Missing query parameter: " <> name))
Just Nothing -> Just Nothing ->
respond (Wai.responseBuilder (toEnum 400) [] mempty) respond (Wai.responseBuilder (toEnum 400) [] ("Missing query parameter: " <> name))
Just (Just value) -> Just (Just value) ->
case parseQueryParam (Text.decodeUtf8 value) of case parseQueryParam (Text.decodeUtf8 value) of
Left _err -> Left _err ->
respond (Wai.responseBuilder (toEnum 400) [] mempty) respond (Wai.responseBuilder (toEnum 400) [] ("Unable to recognize query parameter: " <> name))
Right x -> Right x ->
withParam x request respond withParam x request respond
{-# INLINEABLE requiredQueryParameter #-} {-# INLINEABLE requiredQueryParameter #-}
@ -293,11 +293,11 @@ optionalQueryParameter name allowEmpty withParam = \request respond ->
| allowEmpty -> | allowEmpty ->
withParam Nothing request respond withParam Nothing request respond
| otherwise -> | otherwise ->
respond (Wai.responseBuilder (toEnum 400) [] mempty) respond (Wai.responseBuilder (toEnum 400) [] ("Missing query parameter: " <> name))
Just (Just value) -> Just (Just value) ->
case parseQueryParam (Text.decodeUtf8 value) of case parseQueryParam (Text.decodeUtf8 value) of
Left _err -> Left _err ->
respond (Wai.responseBuilder (toEnum 400) [] mempty) respond (Wai.responseBuilder (toEnum 400) [] ("Unable to recognize query parameter: " <> name))
Right x -> Right x ->
withParam (Just x) request respond withParam (Just x) request respond
{-# INLINEABLE optionalQueryParameter #-} {-# INLINEABLE optionalQueryParameter #-}

10
test/golden/enum.yaml.out
View File

@ -331,13 +331,13 @@ requiredQueryParameter ::
requiredQueryParameter name withParam = \request respond -> requiredQueryParameter name withParam = \request respond ->
case List.lookup name (Wai.queryString request) of case List.lookup name (Wai.queryString request) of
Nothing -> Nothing ->
respond (Wai.responseBuilder (toEnum 400) [] mempty) respond (Wai.responseBuilder (toEnum 400) [] ("Missing query parameter: " <> name))
Just Nothing -> Just Nothing ->
respond (Wai.responseBuilder (toEnum 400) [] mempty) respond (Wai.responseBuilder (toEnum 400) [] ("Missing query parameter: " <> name))
Just (Just value) -> Just (Just value) ->
case parseQueryParam (Text.decodeUtf8 value) of case parseQueryParam (Text.decodeUtf8 value) of
Left _err -> Left _err ->
respond (Wai.responseBuilder (toEnum 400) [] mempty) respond (Wai.responseBuilder (toEnum 400) [] ("Unable to recognize query parameter: " <> name))
Right x -> Right x ->
withParam x request respond withParam x request respond
{-# INLINEABLE requiredQueryParameter #-} {-# INLINEABLE requiredQueryParameter #-}
@ -357,11 +357,11 @@ optionalQueryParameter name allowEmpty withParam = \request respond ->
| allowEmpty -> | allowEmpty ->
withParam Nothing request respond withParam Nothing request respond
| otherwise -> | otherwise ->
respond (Wai.responseBuilder (toEnum 400) [] mempty) respond (Wai.responseBuilder (toEnum 400) [] ("Missing query parameter: " <> name))
Just (Just value) -> Just (Just value) ->
case parseQueryParam (Text.decodeUtf8 value) of case parseQueryParam (Text.decodeUtf8 value) of
Left _err -> Left _err ->
respond (Wai.responseBuilder (toEnum 400) [] mempty) respond (Wai.responseBuilder (toEnum 400) [] ("Unable to recognize query parameter: " <> name))
Right x -> Right x ->
withParam (Just x) request respond withParam (Just x) request respond
{-# INLINEABLE optionalQueryParameter #-} {-# INLINEABLE optionalQueryParameter #-}

10
test/golden/haskell-ext.yaml.out
View File

@ -282,13 +282,13 @@ requiredQueryParameter ::
requiredQueryParameter name withParam = \request respond -> requiredQueryParameter name withParam = \request respond ->
case List.lookup name (Wai.queryString request) of case List.lookup name (Wai.queryString request) of
Nothing -> Nothing ->
respond (Wai.responseBuilder (toEnum 400) [] mempty) respond (Wai.responseBuilder (toEnum 400) [] ("Missing query parameter: " <> name))
Just Nothing -> Just Nothing ->
respond (Wai.responseBuilder (toEnum 400) [] mempty) respond (Wai.responseBuilder (toEnum 400) [] ("Missing query parameter: " <> name))
Just (Just value) -> Just (Just value) ->
case parseQueryParam (Text.decodeUtf8 value) of case parseQueryParam (Text.decodeUtf8 value) of
Left _err -> Left _err ->
respond (Wai.responseBuilder (toEnum 400) [] mempty) respond (Wai.responseBuilder (toEnum 400) [] ("Unable to recognize query parameter: " <> name))
Right x -> Right x ->
withParam x request respond withParam x request respond
{-# INLINEABLE requiredQueryParameter #-} {-# INLINEABLE requiredQueryParameter #-}
@ -308,11 +308,11 @@ optionalQueryParameter name allowEmpty withParam = \request respond ->
| allowEmpty -> | allowEmpty ->
withParam Nothing request respond withParam Nothing request respond
| otherwise -> | otherwise ->
respond (Wai.responseBuilder (toEnum 400) [] mempty) respond (Wai.responseBuilder (toEnum 400) [] ("Missing query parameter: " <> name))
Just (Just value) -> Just (Just value) ->
case parseQueryParam (Text.decodeUtf8 value) of case parseQueryParam (Text.decodeUtf8 value) of
Left _err -> Left _err ->
respond (Wai.responseBuilder (toEnum 400) [] mempty) respond (Wai.responseBuilder (toEnum 400) [] ("Unable to recognize query parameter: " <> name))
Right x -> Right x ->
withParam (Just x) request respond withParam (Just x) request respond
{-# INLINEABLE optionalQueryParameter #-} {-# INLINEABLE optionalQueryParameter #-}

10
test/golden/headers.yaml.out
View File

@ -295,13 +295,13 @@ requiredQueryParameter ::
requiredQueryParameter name withParam = \request respond -> requiredQueryParameter name withParam = \request respond ->
case List.lookup name (Wai.queryString request) of case List.lookup name (Wai.queryString request) of
Nothing -> Nothing ->
respond (Wai.responseBuilder (toEnum 400) [] mempty) respond (Wai.responseBuilder (toEnum 400) [] ("Missing query parameter: " <> name))
Just Nothing -> Just Nothing ->
respond (Wai.responseBuilder (toEnum 400) [] mempty) respond (Wai.responseBuilder (toEnum 400) [] ("Missing query parameter: " <> name))
Just (Just value) -> Just (Just value) ->
case parseQueryParam (Text.decodeUtf8 value) of case parseQueryParam (Text.decodeUtf8 value) of
Left _err -> Left _err ->
respond (Wai.responseBuilder (toEnum 400) [] mempty) respond (Wai.responseBuilder (toEnum 400) [] ("Unable to recognize query parameter: " <> name))
Right x -> Right x ->
withParam x request respond withParam x request respond
{-# INLINEABLE requiredQueryParameter #-} {-# INLINEABLE requiredQueryParameter #-}
@ -321,11 +321,11 @@ optionalQueryParameter name allowEmpty withParam = \request respond ->
| allowEmpty -> | allowEmpty ->
withParam Nothing request respond withParam Nothing request respond
| otherwise -> | otherwise ->
respond (Wai.responseBuilder (toEnum 400) [] mempty) respond (Wai.responseBuilder (toEnum 400) [] ("Missing query parameter: " <> name))
Just (Just value) -> Just (Just value) ->
case parseQueryParam (Text.decodeUtf8 value) of case parseQueryParam (Text.decodeUtf8 value) of
Left _err -> Left _err ->
respond (Wai.responseBuilder (toEnum 400) [] mempty) respond (Wai.responseBuilder (toEnum 400) [] ("Unable to recognize query parameter: " <> name))
Right x -> Right x ->
withParam (Just x) request respond withParam (Just x) request respond
{-# INLINEABLE optionalQueryParameter #-} {-# INLINEABLE optionalQueryParameter #-}

10
test/golden/lists.yaml.out
View File

@ -328,13 +328,13 @@ requiredQueryParameter ::
requiredQueryParameter name withParam = \request respond -> requiredQueryParameter name withParam = \request respond ->
case List.lookup name (Wai.queryString request) of case List.lookup name (Wai.queryString request) of
Nothing -> Nothing ->
respond (Wai.responseBuilder (toEnum 400) [] mempty) respond (Wai.responseBuilder (toEnum 400) [] ("Missing query parameter: " <> name))
Just Nothing -> Just Nothing ->
respond (Wai.responseBuilder (toEnum 400) [] mempty) respond (Wai.responseBuilder (toEnum 400) [] ("Missing query parameter: " <> name))
Just (Just value) -> Just (Just value) ->
case parseQueryParam (Text.decodeUtf8 value) of case parseQueryParam (Text.decodeUtf8 value) of
Left _err -> Left _err ->
respond (Wai.responseBuilder (toEnum 400) [] mempty) respond (Wai.responseBuilder (toEnum 400) [] ("Unable to recognize query parameter: " <> name))
Right x -> Right x ->
withParam x request respond withParam x request respond
{-# INLINEABLE requiredQueryParameter #-} {-# INLINEABLE requiredQueryParameter #-}
@ -354,11 +354,11 @@ optionalQueryParameter name allowEmpty withParam = \request respond ->
| allowEmpty -> | allowEmpty ->
withParam Nothing request respond withParam Nothing request respond
| otherwise -> | otherwise ->
respond (Wai.responseBuilder (toEnum 400) [] mempty) respond (Wai.responseBuilder (toEnum 400) [] ("Missing query parameter: " <> name))
Just (Just value) -> Just (Just value) ->
case parseQueryParam (Text.decodeUtf8 value) of case parseQueryParam (Text.decodeUtf8 value) of
Left _err -> Left _err ->
respond (Wai.responseBuilder (toEnum 400) [] mempty) respond (Wai.responseBuilder (toEnum 400) [] ("Unable to recognize query parameter: " <> name))
Right x -> Right x ->
withParam (Just x) request respond withParam (Just x) request respond
{-# INLINEABLE optionalQueryParameter #-} {-# INLINEABLE optionalQueryParameter #-}

10
test/golden/numbers.yaml.out
View File

@ -264,13 +264,13 @@ requiredQueryParameter ::
requiredQueryParameter name withParam = \request respond -> requiredQueryParameter name withParam = \request respond ->
case List.lookup name (Wai.queryString request) of case List.lookup name (Wai.queryString request) of
Nothing -> Nothing ->
respond (Wai.responseBuilder (toEnum 400) [] mempty) respond (Wai.responseBuilder (toEnum 400) [] ("Missing query parameter: " <> name))
Just Nothing -> Just Nothing ->
respond (Wai.responseBuilder (toEnum 400) [] mempty) respond (Wai.responseBuilder (toEnum 400) [] ("Missing query parameter: " <> name))
Just (Just value) -> Just (Just value) ->
case parseQueryParam (Text.decodeUtf8 value) of case parseQueryParam (Text.decodeUtf8 value) of
Left _err -> Left _err ->
respond (Wai.responseBuilder (toEnum 400) [] mempty) respond (Wai.responseBuilder (toEnum 400) [] ("Unable to recognize query parameter: " <> name))
Right x -> Right x ->
withParam x request respond withParam x request respond
{-# INLINEABLE requiredQueryParameter #-} {-# INLINEABLE requiredQueryParameter #-}
@ -290,11 +290,11 @@ optionalQueryParameter name allowEmpty withParam = \request respond ->
| allowEmpty -> | allowEmpty ->
withParam Nothing request respond withParam Nothing request respond
| otherwise -> | otherwise ->
respond (Wai.responseBuilder (toEnum 400) [] mempty) respond (Wai.responseBuilder (toEnum 400) [] ("Missing query parameter: " <> name))
Just (Just value) -> Just (Just value) ->
case parseQueryParam (Text.decodeUtf8 value) of case parseQueryParam (Text.decodeUtf8 value) of
Left _err -> Left _err ->
respond (Wai.responseBuilder (toEnum 400) [] mempty) respond (Wai.responseBuilder (toEnum 400) [] ("Unable to recognize query parameter: " <> name))
Right x -> Right x ->
withParam (Just x) request respond withParam (Just x) request respond
{-# INLINEABLE optionalQueryParameter #-} {-# INLINEABLE optionalQueryParameter #-}

10
test/golden/object-without-type.yaml.out
View File

@ -264,13 +264,13 @@ requiredQueryParameter ::
requiredQueryParameter name withParam = \request respond -> requiredQueryParameter name withParam = \request respond ->
case List.lookup name (Wai.queryString request) of case List.lookup name (Wai.queryString request) of
Nothing -> Nothing ->
respond (Wai.responseBuilder (toEnum 400) [] mempty) respond (Wai.responseBuilder (toEnum 400) [] ("Missing query parameter: " <> name))
Just Nothing -> Just Nothing ->
respond (Wai.responseBuilder (toEnum 400) [] mempty) respond (Wai.responseBuilder (toEnum 400) [] ("Missing query parameter: " <> name))
Just (Just value) -> Just (Just value) ->
case parseQueryParam (Text.decodeUtf8 value) of case parseQueryParam (Text.decodeUtf8 value) of
Left _err -> Left _err ->
respond (Wai.responseBuilder (toEnum 400) [] mempty) respond (Wai.responseBuilder (toEnum 400) [] ("Unable to recognize query parameter: " <> name))
Right x -> Right x ->
withParam x request respond withParam x request respond
{-# INLINEABLE requiredQueryParameter #-} {-# INLINEABLE requiredQueryParameter #-}
@ -290,11 +290,11 @@ optionalQueryParameter name allowEmpty withParam = \request respond ->
| allowEmpty -> | allowEmpty ->
withParam Nothing request respond withParam Nothing request respond
| otherwise -> | otherwise ->
respond (Wai.responseBuilder (toEnum 400) [] mempty) respond (Wai.responseBuilder (toEnum 400) [] ("Missing query parameter: " <> name))
Just (Just value) -> Just (Just value) ->
case parseQueryParam (Text.decodeUtf8 value) of case parseQueryParam (Text.decodeUtf8 value) of
Left _err -> Left _err ->
respond (Wai.responseBuilder (toEnum 400) [] mempty) respond (Wai.responseBuilder (toEnum 400) [] ("Unable to recognize query parameter: " <> name))
Right x -> Right x ->
withParam (Just x) request respond withParam (Just x) request respond
{-# INLINEABLE optionalQueryParameter #-} {-# INLINEABLE optionalQueryParameter #-}

10
test/golden/oneof.yaml.out
View File

@ -294,13 +294,13 @@ requiredQueryParameter ::
requiredQueryParameter name withParam = \request respond -> requiredQueryParameter name withParam = \request respond ->
case List.lookup name (Wai.queryString request) of case List.lookup name (Wai.queryString request) of
Nothing -> Nothing ->
respond (Wai.responseBuilder (toEnum 400) [] mempty) respond (Wai.responseBuilder (toEnum 400) [] ("Missing query parameter: " <> name))
Just Nothing -> Just Nothing ->
respond (Wai.responseBuilder (toEnum 400) [] mempty) respond (Wai.responseBuilder (toEnum 400) [] ("Missing query parameter: " <> name))
Just (Just value) -> Just (Just value) ->
case parseQueryParam (Text.decodeUtf8 value) of case parseQueryParam (Text.decodeUtf8 value) of
Left _err -> Left _err ->
respond (Wai.responseBuilder (toEnum 400) [] mempty) respond (Wai.responseBuilder (toEnum 400) [] ("Unable to recognize query parameter: " <> name))
Right x -> Right x ->
withParam x request respond withParam x request respond
{-# INLINEABLE requiredQueryParameter #-} {-# INLINEABLE requiredQueryParameter #-}
@ -320,11 +320,11 @@ optionalQueryParameter name allowEmpty withParam = \request respond ->
| allowEmpty -> | allowEmpty ->
withParam Nothing request respond withParam Nothing request respond
| otherwise -> | otherwise ->
respond (Wai.responseBuilder (toEnum 400) [] mempty) respond (Wai.responseBuilder (toEnum 400) [] ("Missing query parameter: " <> name))
Just (Just value) -> Just (Just value) ->
case parseQueryParam (Text.decodeUtf8 value) of case parseQueryParam (Text.decodeUtf8 value) of
Left _err -> Left _err ->
respond (Wai.responseBuilder (toEnum 400) [] mempty) respond (Wai.responseBuilder (toEnum 400) [] ("Unable to recognize query parameter: " <> name))
Right x -> Right x ->
withParam (Just x) request respond withParam (Just x) request respond
{-# INLINEABLE optionalQueryParameter #-} {-# INLINEABLE optionalQueryParameter #-}

10
test/golden/petstore.yaml.out
View File

@ -295,13 +295,13 @@ requiredQueryParameter ::
requiredQueryParameter name withParam = \request respond -> requiredQueryParameter name withParam = \request respond ->
case List.lookup name (Wai.queryString request) of case List.lookup name (Wai.queryString request) of
Nothing -> Nothing ->
respond (Wai.responseBuilder (toEnum 400) [] mempty) respond (Wai.responseBuilder (toEnum 400) [] ("Missing query parameter: " <> name))
Just Nothing -> Just Nothing ->
respond (Wai.responseBuilder (toEnum 400) [] mempty) respond (Wai.responseBuilder (toEnum 400) [] ("Missing query parameter: " <> name))
Just (Just value) -> Just (Just value) ->
case parseQueryParam (Text.decodeUtf8 value) of case parseQueryParam (Text.decodeUtf8 value) of
Left _err -> Left _err ->
respond (Wai.responseBuilder (toEnum 400) [] mempty) respond (Wai.responseBuilder (toEnum 400) [] ("Unable to recognize query parameter: " <> name))
Right x -> Right x ->
withParam x request respond withParam x request respond
{-# INLINEABLE requiredQueryParameter #-} {-# INLINEABLE requiredQueryParameter #-}
@ -321,11 +321,11 @@ optionalQueryParameter name allowEmpty withParam = \request respond ->
| allowEmpty -> | allowEmpty ->
withParam Nothing request respond withParam Nothing request respond
| otherwise -> | otherwise ->
respond (Wai.responseBuilder (toEnum 400) [] mempty) respond (Wai.responseBuilder (toEnum 400) [] ("Missing query parameter: " <> name))
Just (Just value) -> Just (Just value) ->
case parseQueryParam (Text.decodeUtf8 value) of case parseQueryParam (Text.decodeUtf8 value) of
Left _err -> Left _err ->
respond (Wai.responseBuilder (toEnum 400) [] mempty) respond (Wai.responseBuilder (toEnum 400) [] ("Unable to recognize query parameter: " <> name))
Right x -> Right x ->
withParam (Just x) request respond withParam (Just x) request respond
{-# INLINEABLE optionalQueryParameter #-} {-# INLINEABLE optionalQueryParameter #-}

10
test/golden/test1.yaml.out
View File

@ -298,13 +298,13 @@ requiredQueryParameter ::
requiredQueryParameter name withParam = \request respond -> requiredQueryParameter name withParam = \request respond ->
case List.lookup name (Wai.queryString request) of case List.lookup name (Wai.queryString request) of
Nothing -> Nothing ->
respond (Wai.responseBuilder (toEnum 400) [] mempty) respond (Wai.responseBuilder (toEnum 400) [] ("Missing query parameter: " <> name))
Just Nothing -> Just Nothing ->
respond (Wai.responseBuilder (toEnum 400) [] mempty) respond (Wai.responseBuilder (toEnum 400) [] ("Missing query parameter: " <> name))
Just (Just value) -> Just (Just value) ->
case parseQueryParam (Text.decodeUtf8 value) of case parseQueryParam (Text.decodeUtf8 value) of
Left _err -> Left _err ->
respond (Wai.responseBuilder (toEnum 400) [] mempty) respond (Wai.responseBuilder (toEnum 400) [] ("Unable to recognize query parameter: " <> name))
Right x -> Right x ->
withParam x request respond withParam x request respond
{-# INLINEABLE requiredQueryParameter #-} {-# INLINEABLE requiredQueryParameter #-}
@ -324,11 +324,11 @@ optionalQueryParameter name allowEmpty withParam = \request respond ->
| allowEmpty -> | allowEmpty ->
withParam Nothing request respond withParam Nothing request respond
| otherwise -> | otherwise ->
respond (Wai.responseBuilder (toEnum 400) [] mempty) respond (Wai.responseBuilder (toEnum 400) [] ("Missing query parameter: " <> name))
Just (Just value) -> Just (Just value) ->
case parseQueryParam (Text.decodeUtf8 value) of case parseQueryParam (Text.decodeUtf8 value) of
Left _err -> Left _err ->
respond (Wai.responseBuilder (toEnum 400) [] mempty) respond (Wai.responseBuilder (toEnum 400) [] ("Unable to recognize query parameter: " <> name))
Right x -> Right x ->
withParam (Just x) request respond withParam (Just x) request respond
{-# INLINEABLE optionalQueryParameter #-} {-# INLINEABLE optionalQueryParameter #-}