1
2
3
4
5
6
7
8
9
10
11
12
13
14
| {-# LANGUAGE OverloadedStrings #-}
module Cart
( cart
) where
import Text.Blaze.Html5 as H
import Text.Blaze.Html5.Attributes as A
cart :: H.Html
cart = H.html $
H.div $ do
H.form ! A.method "post" ! A.action "/pay" $ do
H.input ! A.type_ "submit" ! A.value "pay"
|