Fix recompilation bug with default class methods (#15970)
[ghc.git] / testsuite / tests / driver / T15970 / A1.hs
1 -- {-# OPTIONS_GHC -fno-full-laziness #-}
2 module A (toTypedData, toTypedDataNoDef) where
3
4 toTypedData :: String -> IO Int
5 toTypedData s = wrapPrint "yoyo" $ toTypedDataNoDef s
6
7 wrapPrint :: String -> IO Int -> IO Int
8 wrapPrint s act = do
9 putStrLn s
10 act
11
12 toTypedDataNoDef :: String -> IO Int
13 toTypedDataNoDef s = return $ length s