From 9f399d0eeaf94ed24fc5f5eb20a2609a9c7518ae Mon Sep 17 00:00:00 2001
From: Michael Snoyman <michael@snoyman.com>
Date: Wed, 7 Oct 2009 17:49:29 +0200
Subject: [PATCH] Exposing RawParam

---
 Web/Restful/Request.hs | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/Web/Restful/Request.hs b/Web/Restful/Request.hs
index 2d77324a..37ea98bd 100644
--- a/Web/Restful/Request.hs
+++ b/Web/Restful/Request.hs
@@ -23,6 +23,7 @@ module Web.Restful.Request
     , ParamType
     , ParamName
     , ParamValue
+    , RawParam (..)
       -- * RawRequest
     , RawRequest (..)
     , PathInfo
@@ -303,7 +304,7 @@ class Request a where
 instance Request () where
     parseRequest = return ()
 
--- | Unsures that a String parameter is not blank.
+-- | Ensures that a String parameter is not blank.
 notBlank :: MonadRequestReader m => RawParam -> m String
 notBlank rp =
   case paramValue rp of