GenericsRep.purs

module Main where

import Prelude
import Control.Monad.Eff (Eff)
import Control.Monad.Eff.Console (CONSOLE, log, logShow)
import Data.Generic.Rep (class Generic)
import Data.Generic.Rep.Eq (genericEq)

data X a = X a 
	 
derive instance genericX :: Generic (X a) _

instance eqX :: Eq a => Eq (X a) where
  eq xs ys = genericEq xs ys

data Y a = Y | Z a (Y a)

derive instance genericY :: Generic (Y a) _

instance eqY :: Eq a => Eq (Y a) where
  eq xs ys = genericEq xs ys

data Z

derive instance genericZ :: Generic Z _

instance eqZ :: Eq Z where
  eq x y = genericEq x y

newtype W = W { x :: Int, y :: String }

derive instance genericW :: Generic W _

instance eqW :: Eq W where
  eq x y = genericEq x y

data V = V { x :: Int } { x :: Int }
 
derive instance genericV :: Generic V _

instance eqV :: Eq V where
  eq x y = genericEq x y

main :: Eff (console :: CONSOLE) Unit
main = do
  logShow (X 0 == X 1)
  logShow (X 1 == X 1)
  logShow (Z 1 Y == Z 1 Y)
  logShow (Z 1 Y == Y)
  logShow (Y == Y :: Y Z)
  logShow (W { x: 0, y: "A" } == W { x: 0, y: "A" })
  logShow (V { x: 0 } { x: 0 } == V { x: 0 } { x: 0 })
  log "Done"