summaryrefslogtreecommitdiff
path: root/testdata/language-features/basic-list/listcomp04.out
blob: 8a7837d76304d94a79481dd70eb5f2977bd93751 (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
main is not found
------------ desugared source code
l = _lhs l (_rhs [(), (), (), ()])

value
  = _lhs value (_rhs (concatMap (\(_ :: _) -> concatMap (\(_ :: _) -> [()]) l) l))
------------ core code
l :: [()]
l = _rhs [(), (), (), ()]

value :: [()]
value
  = _rhs
    (()
      : [] ++ foldr (++) [] (map (\_ -> [()]) [(), (), ()])
        ++ foldr (++) [] (map (\_ -> concatMap ' () ' () (\_ -> [()]) l) [(), (), ()]))
------------ tooltips
1:1-1:2
    [()]
1:5-1:18
    [()]
1:6-1:8
    ()
1:9-1:11
    ()
1:9-1:17
    [()]
1:12-1:14
    ()
1:12-1:17
    [()]
1:15-1:17
    () | [()]
2:1-2:6
    [()]
2:9-2:30
    [()]
2:10-2:12
    () | [()]
2:10-2:29
    [()]
2:20-2:21
    [()]
2:28-2:29
    [()]