Mercurial > repo
view interps/rhotor/Uniqs.hs @ 11321:14314c55571e
<FireFly> ` echo "$(cat wisdom/fonts) , FireFly\'s fonts http://xen.firefly.nu/up/fonts/ & https://twitter.com/FireyFly/status/899965577481129984" >/tmp/a && cp /tmp/a wisdom/fonts && cat wisdom/fonts
author | HackBot |
---|---|
date | Mon, 15 Jan 2018 22:31:52 +0000 |
parents | 859f9b4339e6 |
children |
line wrap: on
line source
module Uniqs ( Uniqs(Root, A, B, C) ) where data Uniqs = A Uniqs | B Uniqs | C Uniqs | Root instance Eq Uniqs where (==) Root Root = True (==) (A a) (A b) = a == b (==) (B a) (B b) = a == b (==) (C a) (C b) = a == b (==) _ _ = False (/=) a b = not (a == b) instance Show Uniqs where show Root = "R" show (A b) = 'A':show b show (B b) = 'B':show b show (C b) = 'C':show b