~alcinnz/bureaucromancy

ref: fa8b4face21b0a32e01a2b4e2669f7dce1a43626 bureaucromancy/src/Text/HTML/Form/WebApp.hs -rw-r--r-- 301 bytes
fa8b4fac — Adrian Cochrane Assemble testscript as locally-run webserver, adjust namespace. 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 ""