~alcinnz/bureaucromancy

ref: 4e46e68a618bedfb66e14ca4e8b975198175ab44 bureaucromancy/src/Text/HTML/Form/WebApp.hs -rw-r--r-- 301 bytes
4e46e68a — Adrian Cochrane Add infrastructure for parsing documents. 1 year, 4 months ago
                                                                                
1
2
3
4
5
6
7
8
9
{-# LANGUAGE OverloadedStrings #-}
module Text.HTML.Form.WebApp (renderPage, Form(..)) where

import Data.ByteString as BS
import Data.Text as Txt
import Text.HTML.Form (Form(..))

renderPage :: Form -> [Text] -> [(ByteString, Maybe ByteString)] -> IO (Maybe Text)
renderPage _ _ _ = return $ Just ""