yesod-dsl-0.1.1.24: codegen/prepare-request-input-field.cg

    attr_~{fn} <- do
        mv <- lookupGetParam "~{fn}"
        case mv of
            Just v -> case PP.fromPathPiece v of
                Just v' -> return v'
                Nothing -> sendResponseStatus status400 $ A.object [
                        "message" .= ("Could not parse value from the parameter ~{fn} in the query string" :: Text),
                        "error ".= ("Parse error" :: Text)
                    ]
            Nothing -> sendResponseStatus status400 $ A.object [
                    "message" .= ("Expected parameter ~{fn} in the query string" :: Text)
                ]