testsuite/tests/driver/T15970/C.hs


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15

module Main where

import B

data MyDataType = MyDataType String Int deriving Show

instance TypeClass MyDataType where
    printA = putStrLn . show

main :: IO ()
main = do
    let myValue = MyDataType "haha" 99
    sz <- getSize myValue
    putStrLn $ show sz
    printA myValue