Fix recompilation bug with default class methods (#15970)
[ghc.git] / testsuite / tests / driver / T15970 / C.hs
1 module Main where
2
3 import B
4
5 data MyDataType = MyDataType String Int deriving Show
6
7 instance TypeClass MyDataType where
8 printA = putStrLn . show
9
10 main :: IO ()
11 main = do
12 let myValue = MyDataType "haha" 99
13 sz <- getSize myValue
14 putStrLn $ show sz
15 printA myValue