-- | Special type for unicode characters.
module Language.Drasil.Unicode(Special(Circle), RenderSpecial(special)) where

-- | Special characters include partial derivatives and the degree circle.
data Special = Circle  -- remove by refactoring how units are done 
  deriving (Special -> Special -> Bool
(Special -> Special -> Bool)
-> (Special -> Special -> Bool) -> Eq Special
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: Special -> Special -> Bool
== :: Special -> Special -> Bool
$c/= :: Special -> Special -> Bool
/= :: Special -> Special -> Bool
Eq, Eq Special
Eq Special =>
(Special -> Special -> Ordering)
-> (Special -> Special -> Bool)
-> (Special -> Special -> Bool)
-> (Special -> Special -> Bool)
-> (Special -> Special -> Bool)
-> (Special -> Special -> Special)
-> (Special -> Special -> Special)
-> Ord Special
Special -> Special -> Bool
Special -> Special -> Ordering
Special -> Special -> Special
forall a.
Eq a =>
(a -> a -> Ordering)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> a)
-> (a -> a -> a)
-> Ord a
$ccompare :: Special -> Special -> Ordering
compare :: Special -> Special -> Ordering
$c< :: Special -> Special -> Bool
< :: Special -> Special -> Bool
$c<= :: Special -> Special -> Bool
<= :: Special -> Special -> Bool
$c> :: Special -> Special -> Bool
> :: Special -> Special -> Bool
$c>= :: Special -> Special -> Bool
>= :: Special -> Special -> Bool
$cmax :: Special -> Special -> Special
max :: Special -> Special -> Special
$cmin :: Special -> Special -> Special
min :: Special -> Special -> Special
Ord)

-- | Class for rendering special characters.
class RenderSpecial r where
  special :: Special -> r