~alcinnz/bureaucromancy

ref: de2d2b691b2b7b5891d89e01bad541be153cc5ec bureaucromancy/src/Text/HTML/Form/WebApp.hs -rw-r--r-- 301 bytes
de2d2b69 — Adrian Cochrane Parse labels, aria-describedby, datalists, selects, buttons, & textareas. 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 ""