Create a custom happstack response code

Question

I have been trying to create a custom happstack response the 405 "Method not allowed" so if someone calls the API with a POST or PUT method they will get this response. I am new to happstack. Any ideas how I can do that?

willeM_ Van Onsem · Accepted Answer · 2018-05-17 19:54:20Z

1

Well the ok :: (FilterMonad Response m) => a -> m a function is implemented as [src]:

ok :: (FilterMonad Response m) => a -> m a ok = resp 200

So it is the same way like you would write an ok response, except that you should use resp :: (FilterMonad Response m) => Int -> b -> m b with a custom return code.

For example:

resp 405 "Method not allowed"

So we can for example block PUT and POST requests with something like:

main :: IO () main = simpleHTTP nullConf $ msum [ do method GET ok $ "This is allowed.\n" , do method PUT (resp 405) $ "Method not allowed" , do method POST (resp 405) $ "Method not allowed" ]

edited May 17, 2018 at 19:54

answered May 17, 2018 at 19:15

willeM_ Van Onsem

482k33 gold badges483 silver badges624 bronze badges

Sign up to request clarification or add additional context in comments.

8 Comments

ib1 Over a year ago

Thank you for your response , I am getting this error -- In the second argument of ‘resp’, namely ‘"Method not allowed"’ In a stmt of a 'do' block: resp 405 "Method not allowed" In the expression: do { method PUT; resp 405 "Method not allowed" } -- I tried to find what is wrong but no luck .

willeM_ Van Onsem Over a year ago

Hmm.. I think I forgot some brackets. Edited the answer.

ib1 Over a year ago

I am getting the same error -- • No instance for (Data.String.IsString Response) arising from the literal ‘"Method not allowed"’ • In the second argument of ‘($)’, namely ‘"Method not allowed"’ In a stmt of a 'do' block: (resp 405) $ "Method not allowed" In the second argument of ‘($)’, namely ‘do { method [PUT, POST]; (resp 405) $ "Method not allowed" }’ --

willeM_ Van Onsem Over a year ago

Here you include PUT and POST in the same list?

ib1 Over a year ago

Yeah sorry wrong copy this is the one -- No instance for (Data.String.IsString Response) arising from the literal ‘"Method not allowed"’ • In the second argument of ‘($)’, namely ‘"Method not allowed"’ In a stmt of a 'do' block: (resp 405) $ "Method not allowed" In the expression: do { method PUT; (resp 405) $ "Method not allowed" }

|

Collectives™ on Stack Overflow

Create a custom happstack response code

1 Answer 1

8 Comments

Hot Network Questions

Collectives™ on Stack Overflow

1 Answer 1

8 Comments

Related