blob: 3a58f6dd621a86acc3330dd2922101746bd681fc (
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
52
53
54
|
-- Exponential with GHC 8.10
--
-- This is a smaller version of T10421, but demonstrates the same blow-up
module RegBig where
import Prelude
import Control.Applicative
import T10421a_Form
data Register
= Register String
String
String
String
String
String
String
String
String
String
String
String
registerForm :: FormResult String -- a1
-> FormResult String
-> FormResult String -- a3
-> FormResult String
-> FormResult String
-> FormResult String -- a6
-> FormResult String -- a7
-> FormResult String
-> FormResult String
-> FormResult String
-> FormResult String
-> FormResult String -- a12
-> IO (FormResult Register)
registerForm a1 a2 a3 a4 a5 a6 a7
a8 a9 a10 a11 a12
= return (Register <$> a1
<*> a2
<*> a3
<*> a4
<*> a5
<*> a6
<*> a7
<*> a8
<*> a9
<*> a10
<*> a11
<*> a12
)
|