T8743.hs 261 Bytes
Newer Older
Joachim Breitner's avatar
Joachim Breitner committed
1 2 3 4 5 6 7 8 9 10 11
module T8743 where

-- Without the following import, it does not fail
import {-# SOURCE #-} T8743 ()

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

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