Commit 4847d9f2 authored by chak@cse.unsw.edu.au.'s avatar chak@cse.unsw.edu.au.
Browse files

indexed type: deriving indexed newtypes

parent 4a67f94f
...@@ -16,9 +16,12 @@ instance Eq (T Char) where ...@@ -16,9 +16,12 @@ instance Eq (T Char) where
C == C = False C == C = False
{-
newtype family S a newtype family S a
newtype instance S Int = S Int 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
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