Code reorganisation

[Lucu.git] / Network / HTTP / Lucu / Response / StatusCode.hs

diff --git a/Network/HTTP/Lucu/StatusCode.hs b/Network/HTTP/Lucu/Response/StatusCode.hs
similarity index 84%
rename from Network/HTTP/Lucu/StatusCode.hs
rename to Network/HTTP/Lucu/Response/StatusCode.hs
index 8f3e22579ddc8d4d8d32963e84ae7bc936a01eda..f09c6ddda9bb65dfff6713d82c799281b33b4790 100644 (file)
--- a/Network/HTTP/Lucu/StatusCode.hs
+++ b/Network/HTTP/Lucu/Response/StatusCode.hs
@@ -1,18 +1,20 @@
 {-# LANGUAGE
-    OverloadedStrings
-  , QuasiQuotes
+    QuasiQuotes
   #-}
--- |Definition of HTTP status code.
--- 'Network.HTTP.Lucu.Resource.setStatus' accepts these named status
--- codes so you don't have to memorize that, say, \"Gateway Timeout\"
--- is 504.
-module Network.HTTP.Lucu.StatusCode
-    ( -- * Informational
-      Continue(..)
+-- |Definition of HTTP status codes.
+module Network.HTTP.Lucu.Response.StatusCode
+    ( -- * Type class
+      StatusCode(..)
+    , SomeStatusCode
+    , statusCodes
+
+      -- * Status codes
+      -- ** Informational
+    , Continue(..)
     , SwitchingProtocols(..)
     , Processing(..)
 
-      -- * Successful
+      -- ** Successful
     , OK(..)
     , Created(..)
     , Accepted(..)
@@ -24,7 +26,7 @@ module Network.HTTP.Lucu.StatusCode
     , AlreadyReported(..)
     , IMUsed(..)
 
-      -- * Redirection
+      -- ** Redirection
     , MultipleChoices(..)
     , MovedPermanently(..)
     , Found(..)
@@ -33,7 +35,7 @@ module Network.HTTP.Lucu.StatusCode
     , UseProxy(..)
     , TemporaryRedirect(..)
 
-      -- * Client Error
+      -- ** Client Error
     , BadRequest(..)
     , Unauthorized(..)
     , PaymentRequired(..)
@@ -57,7 +59,7 @@ module Network.HTTP.Lucu.StatusCode
     , FailedDependency(..)
     , UpgradeRequired(..)
 
-      -- * Server Error
+      -- ** Server Error
     , InternalServerError(..)
     , NotImplemented(..)
     , BadGateway(..)
@@ -70,7 +72,7 @@ module Network.HTTP.Lucu.StatusCode
     , NotExtended(..)
     )
     where
-import Network.HTTP.Lucu.StatusCode.Internal
+import Network.HTTP.Lucu.Response.StatusCode.Internal
 
 [statusCodes|
 100 Continue