1 files changed, 20 insertions, 0 deletions
diff --git a/slips/src/app/Marina/Web/CurrentHttpRequest.cs b/slips/src/app/Marina/Web/CurrentHttpRequest.cs
new file mode 100644
index 0000000..35c4fa5
--- /dev/null
+++ b/slips/src/app/Marina/Web/CurrentHttpRequest.cs
@@ -0,0 +1,20 @@
+using System.Collections.Specialized;
+using Marina.Presentation;
+
+namespace Marina.Web {
+	public class CurrentHttpRequest : IHttpRequest {
+		public CurrentHttpRequest( IHttpContext context ) {
+			_context = context;
+		}
+
+		public T ParsePayloadFor< T >( PayloadKey< T > key ) {
+			return key.ParseFrom( Payload( ) );
+		}
+
+		private NameValueCollection Payload() {
+			return new NameValueCollection( _context.Request.Params );
+		}
+
+		private readonly IHttpContext _context;
+	}
+}
+\ No newline at end of file