Testsuite: fixup comments for T9872d [skip ci]
[ghc.git] / testsuite / tests / perf / compiler / T6048.hs
1 module T6048 where
2
3 import Control.Applicative
4
5 data X = X
6 (Maybe String)
7 (Maybe String)
8 (Maybe String)
9 (Maybe String)
10 (Maybe String)
11 (Maybe String)
12 (Maybe String)
13 (Maybe String)
14 (Maybe String)
15
16 mb :: (String -> Maybe a) -> String -> Maybe (Maybe a)
17 mb _ "" = Just Nothing
18 mb _ "-" = Just Nothing
19 mb p xs = Just <$> p xs
20
21 run :: [String] -> Maybe X
22 run
23 [ x1
24 , x2
25 , x3
26 , x4
27 , x5
28 , x6
29 , x7
30 , x8
31 , x9
32 ] = X
33 <$> mb pure x1
34 <*> mb pure x2
35 <*> mb pure x3
36 <*> mb pure x4
37 <*> mb pure x5
38 <*> mb pure x6
39 <*> mb pure x7
40 <*> mb pure x8
41 <*> mb pure x9
42