~alcinnz/bureaucromancy

ref: 47000929c9a4b46e8757d5daf0c23ede3fd30199 bureaucromancy/src/Text/HTML/Form/WebApp.hs -rw-r--r-- 301 bytes
47000929 — Adrian Cochrane Parse <input> tags. 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 ""