Update Trac ticket URLs to point to GitLab
[ghc.git] / testsuite / tests / deriving / should_run / T2529.hs
1 -- #2529
2 -- The example below successfully performed the {{{show}}}, but {{{reads}}}
3 -- returns an empty list. It fails in both GHCi and GHC. It succeeds if you
4 -- replaces the infix symbol with a name.
5
6 module Main where
7
8 data A = (:<>:) { x :: Int, y :: Int } deriving (Read, Show)
9
10 t :: A
11 t = 1 :<>: 2
12
13 s :: String
14 s = show t
15
16 r :: [(A,String)]
17 r = reads s
18
19 main :: IO ()
20 main = do putStrLn s
21 putStrLn (show r)