deriving instance Eq A
data Maybe' a = Nothing' | Just' a
deriving (Generic, Eq)
myTypes :: [SumType 'Haskell]
myTypes =
[ let p = (Proxy :: Proxy (Maybe' A)) in equal p (mkSumType p)
]
run :: IO ()
run = writePSTypes "/home/flip111/types" (buildBridge defaultBridge) myTypes
The generated purescript code looks like this
data Maybe' a =
Nothing'
| Just' a
derive instance eqMaybe' :: Eq (Maybe' a)
But instead the instance should be like this
derive instance eqMaybe' :: Eq a => Eq (Maybe' a)
The generated purescript code looks like this
But instead the instance should be like this