$ map cs allowedMethods
allowedMethods ∷ [Ascii]
- allowedMethods = nub $ concat [ methods resGet ["GET"]
- , methods resHead ["GET", "HEAD"]
+ allowedMethods = nub $ concat [ methods resGet ["GET", "HEAD"]
+ , methods resHead ["HEAD"]
, methods resPost ["POST"]
, methods resPut ["PUT"]
, methods resDelete ["DELETE"]