summaryrefslogtreecommitdiff
path: root/testsuite/tests/stranal/should_compile/T8743.hs
blob: 1feda6ddbbd5c49bd41b4f850df5dc7b45125ce3 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
{-# LANGUAGE Haskell2010 #-}
module T8743 where

-- Without the following import, it does not fail
import T8743a ()

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

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