From f093019cb10a88fee13b8c99d05b60f895ceb01f Mon Sep 17 00:00:00 2001
From: PHO <pho@cielonegro.org>
Date: Wed, 28 Dec 2011 08:44:42 +0900
Subject: [PATCH] Fix a long-standing bug in generating Allowed header values.

---
 Network/HTTP/Lucu/Resource/Internal.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/Network/HTTP/Lucu/Resource/Internal.hs b/Network/HTTP/Lucu/Resource/Internal.hs
index d0d18b7..7398f93 100644
--- a/Network/HTTP/Lucu/Resource/Internal.hs
+++ b/Network/HTTP/Lucu/Resource/Internal.hs
@@ -187,8 +187,8 @@ spawnRsrc (Resource {..}) ni@(NI {..})
                           $ 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"]
-- 
2.40.0