|
|
1
|
+{-# LANGUAGE OverloadedStrings #-}
|
|
|
2
|
+
|
|
|
3
|
+-- GHC used to run out of simplifier ticks due to inlining the internals of
|
|
|
4
|
+-- `toStrict . toLazyByteString`.
|
|
|
5
|
+module T13960 (breaks) where
|
|
|
6
|
+
|
|
|
7
|
+import Data.ByteString (ByteString)
|
|
|
8
|
+import Data.ByteString.Builder (Builder, stringUtf8, toLazyByteString)
|
|
|
9
|
+import Data.ByteString.Lazy (toStrict)
|
|
|
10
|
+import Data.String (IsString(..))
|
|
|
11
|
+
|
|
|
12
|
+newtype Query = Query ByteString
|
|
|
13
|
+
|
|
|
14
|
+toByteString :: Builder -> ByteString
|
|
|
15
|
+toByteString x = toStrict (toLazyByteString x)
|
|
|
16
|
+
|
|
|
17
|
+instance IsString Query where
|
|
|
18
|
+ fromString = Query . toByteString . stringUtf8
|
|
|
19
|
+
|
|
|
20
|
+breaks :: [(Query, Query)]
|
|
|
21
|
+breaks =
|
|
|
22
|
+ [ ("query001a", "query001b")
|
|
|
23
|
+ , ("query002a", "query002b")
|
|
|
24
|
+ , ("query003a", "query003b")
|
|
|
25
|
+ , ("query004a", "query004b")
|
|
|
26
|
+ , ("query005a", "query005b")
|
|
|
27
|
+ , ("query006a", "query006b")
|
|
|
28
|
+ , ("query007a", "query007b")
|
|
|
29
|
+ , ("query008a", "query008b")
|
|
|
30
|
+ , ("query009a", "query009b")
|
|
|
31
|
+ , ("query010a", "query010b")
|
|
|
32
|
+ , ("query011a", "query011b")
|
|
|
33
|
+ , ("query012a", "query012b")
|
|
|
34
|
+ , ("query013a", "query013b")
|
|
|
35
|
+ , ("query014a", "query014b")
|
|
|
36
|
+ , ("query015a", "query015b")
|
|
|
37
|
+ , ("query016a", "query016b")
|
|
|
38
|
+ , ("query017a", "query017b")
|
|
|
39
|
+ , ("query018a", "query018b")
|
|
|
40
|
+ , ("query019a", "query019b")
|
|
|
41
|
+ , ("query020a", "query020b")
|
|
|
42
|
+ , ("query021a", "query021b")
|
|
|
43
|
+ , ("query022a", "query022b")
|
|
|
44
|
+ , ("query023a", "query023b")
|
|
|
45
|
+ , ("query024a", "query024b")
|
|
|
46
|
+ , ("query025a", "query025b")
|
|
|
47
|
+ , ("query026a", "query026b")
|
|
|
48
|
+ , ("query027a", "query027b")
|
|
|
49
|
+ , ("query028a", "query028b")
|
|
|
50
|
+ , ("query029a", "query029b")
|
|
|
51
|
+ , ("query030a", "query030b")
|
|
|
52
|
+ , ("query031a", "query031b")
|
|
|
53
|
+ , ("query032a", "query032b")
|
|
|
54
|
+ , ("query033a", "query033b")
|
|
|
55
|
+ , ("query034a", "query034b")
|
|
|
56
|
+ , ("query035a", "query035b")
|
|
|
57
|
+ , ("query036a", "query036b")
|
|
|
58
|
+ , ("query037a", "query037b")
|
|
|
59
|
+ , ("query038a", "query038b")
|
|
|
60
|
+ , ("query039a", "query039b")
|
|
|
61
|
+ , ("query040a", "query040b")
|
|
|
62
|
+ , ("query041a", "query041b")
|
|
|
63
|
+ , ("query042a", "query042b")
|
|
|
64
|
+ , ("query043a", "query043b")
|
|
|
65
|
+ , ("query044a", "query044b")
|
|
|
66
|
+ , ("query045a", "query045b")
|
|
|
67
|
+ , ("query046a", "query046b")
|
|
|
68
|
+ , ("query047a", "query047b")
|
|
|
69
|
+ , ("query048a", "query048b")
|
|
|
70
|
+ , ("query049a", "query049b")
|
|
|
71
|
+ , ("query050a", "query050b")
|
|
|
72
|
+ ] |