gregorycollins/Main.hs

## foo.html
<html>
  <head>
<title></title>
</head>
<body>
<h1></h1>

<form method="POST" action="http://localhost:3000/">
  <input name="foo" value="bar" type="hidden"></input>
  <input type="submit" value="submit">
</form>

</body>
</html>

## Main.hs
{-# LANGUAGE OverloadedStrings #-}
module Main where

import           Control.Applicative
import           Control.Monad.Trans
import qualified Data.ByteString.Lazy as L
import           Snap.Http.Server
import           Snap.Types
import           Snap.Util.FileServe

import           Server


main = httpServe "*" 3000 "localhost" Nothing Nothing $ do
    liftIO $ putStrLn "Requesting request body..."
    reqBody <- getRequestBody
    liftIO $ print ("Received request body: ", reqBody)
    modifyResponse $ setContentType "text/html"
    writeLBS $ "<form method='post'><input name='foo'><input type='submit'></form>" `L.append` reqBody
	<html>
	<head>
	<title></title>
	</head>
	<body>
	<h1></h1>

	<form method="POST" action="http://localhost:3000/">
	<input name="foo" value="bar" type="hidden"></input>
	<input type="submit" value="submit">
	</form>

	</body>
	</html>
	{-# LANGUAGE OverloadedStrings #-}
	module Main where

	import Control.Applicative
	import Control.Monad.Trans
	import qualified Data.ByteString.Lazy as L
	import Snap.Http.Server
	import Snap.Types
	import Snap.Util.FileServe

	import Server


	main = httpServe "*" 3000 "localhost" Nothing Nothing $ do
	liftIO $ putStrLn "Requesting request body..."
	reqBody <- getRequestBody
	liftIO $ print ("Received request body: ", reqBody)
	modifyResponse $ setContentType "text/html"
	writeLBS $ "<form method='post'><input name='foo'><input type='submit'></form>" `L.append` reqBody