1module RemoveBasicsCurry exposing (fullyApplied)
2
3
4fullyApplied f =
5    f ( "1", 2 )
6
7
8fullyApplied_comments f =
9    ({- A -} f) ( {- B -} "1", {- C -} 2 )
10
11
12partiallyApplied f =
13    \b -> f ( "1", b )
14
15
16partiallyApplied_comments f =
17    \b -> ({- A -} f) ( {- B -} "1", b )
18
19
20functionOnly f =
21    \a b -> f ( a, b )
22
23
24functionOnly_comments f =
25    \a b -> ({- A -} f) ( a, b )
26
27
28unapplied =
29    \f a b -> f ( a, b )
30
31
32extraArgs f =
33    f ( 1, 2 ) 3 4 5
34
35
36qualified f =
37    f ( "1", 2 )
38
39
40nested f =
41    f ( f ( 1, 2 ), 3 )
42