~alcinnz/bureaucromancy

ref: 02191300f27a5d30c34b2433a283a15b7537d52e bureaucromancy/src/Text/HTML/Form/WebApp.hs -rw-r--r-- 301 bytes
02191300 — Adrian Cochrane Fix issues README link 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 ""