StatusCode is now a type class, not an algebraic data type.

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

diff --git a/Network/HTTP/Lucu.hs b/Network/HTTP/Lucu.hs
index 58cb486f0b6832d6abd314c093b7e2b826b0253b..3579c5ca632cdc442a2fe7eb85f5d9bf68181555 100644 (file)
--- a/Network/HTTP/Lucu.hs
+++ b/Network/HTTP/Lucu.hs
@@ -44,7 +44,7 @@ module Network.HTTP.Lucu
 
       -- ** Things to be used in the Resource monad
       -- *** Status Code
-    , StatusCode(..)
+    , module Network.HTTP.Lucu.StatusCode
 
       -- *** 'Abortion'
     , module Network.HTTP.Lucu.Abortion
@@ -80,3 +80,4 @@ import Network.HTTP.Lucu.Resource
 import Network.HTTP.Lucu.Resource.Tree
 import Network.HTTP.Lucu.Response
 import Network.HTTP.Lucu.StaticFile
+import Network.HTTP.Lucu.StatusCode