blob: 226cc95fd24a6d4492c98a8796c3a6d23ddda8c7 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
|
-- Exponential with GHC 8.10
module RegBig where
import Prelude
import Control.Applicative
import T10421_Form
import T10421_Y
data Register
= Register String
String
String
String
String
String
String
String
String
String
String
String
registerForm :: a -> IO (FormResult Register)
registerForm _ = do
(a1, _) <- mreq textField "" Nothing
(a2, _) <- mreq textField "" Nothing
(a3, _) <- mreq textField "" Nothing
(a4, _) <- mreq textField "" Nothing
(a5, _) <- mreq textField "" Nothing
(a6, _) <- mreq textField "" Nothing
(a7, _) <- mreq textField "" Nothing
(a8, _) <- mreq textField "" Nothing
(a9, _) <- mreq textField "" Nothing
(a10, _) <- mreq textField "" Nothing
(a11, _) <- mreq textField "" Nothing
(a12, _) <- mreq textField "" Nothing
return (Register <$> a1
<*> a2
<*> a3
<*> a4
<*> a5
<*> a6
<*> a7
<*> a8
<*> a9
<*> a10
<*> a11
<*> a12
)
|
