Commit a81e8065 authored by's avatar
Browse files

indexed types: extend Deriving to cover standalone derive

parent 90e3aa03
......@@ -5,7 +5,7 @@ module ShouldCompile where
data family T a
data instance T Int = A | B
deriving Eq
deriving Eq
foo :: T Int -> Bool
foo x = x == x
......@@ -19,9 +19,14 @@ instance Eq (T Char) where
newtype family S a
newtype instance S Int = S Int
deriving Eq
deriving Eq
newtype family S2 a b
newtype instance S2 Int b = S2 (IO b)
deriving Monad
data family R a
data instance R [a] = R
derive instance Eq (R [a])
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment