T8743.hs 247 Bytes
Newer Older
Joachim Breitner's avatar
Joachim Breitner committed
1 2 3
module T8743 where

-- Without the following import, it does not fail
4
import T8743a ()
Joachim Breitner's avatar
Joachim Breitner committed
5 6 7 8 9 10 11

-- [()] required, () does not work.
class ToRow a where toRow :: a -> [()]

instance ToRow (Maybe a) where
    toRow Nothing  = [()]
    toRow (Just _) = [()]