module Direction(Direction(..)) where data Direction = L | R | Dno Int deriving (Direction -> Direction -> Bool (Direction -> Direction -> Bool) -> (Direction -> Direction -> Bool) -> Eq Direction forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a /= :: Direction -> Direction -> Bool $c/= :: Direction -> Direction -> Bool == :: Direction -> Direction -> Bool $c== :: Direction -> Direction -> Bool Eq, Eq Direction Eq Direction -> (Direction -> Direction -> Ordering) -> (Direction -> Direction -> Bool) -> (Direction -> Direction -> Bool) -> (Direction -> Direction -> Bool) -> (Direction -> Direction -> Bool) -> (Direction -> Direction -> Direction) -> (Direction -> Direction -> Direction) -> Ord Direction Direction -> Direction -> Bool Direction -> Direction -> Ordering Direction -> Direction -> Direction 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 min :: Direction -> Direction -> Direction $cmin :: Direction -> Direction -> Direction max :: Direction -> Direction -> Direction $cmax :: Direction -> Direction -> Direction >= :: Direction -> Direction -> Bool $c>= :: Direction -> Direction -> Bool > :: Direction -> Direction -> Bool $c> :: Direction -> Direction -> Bool <= :: Direction -> Direction -> Bool $c<= :: Direction -> Direction -> Bool < :: Direction -> Direction -> Bool $c< :: Direction -> Direction -> Bool compare :: Direction -> Direction -> Ordering $ccompare :: Direction -> Direction -> Ordering $cp1Ord :: Eq Direction Ord, ReadPrec [Direction] ReadPrec Direction Int -> ReadS Direction ReadS [Direction] (Int -> ReadS Direction) -> ReadS [Direction] -> ReadPrec Direction -> ReadPrec [Direction] -> Read Direction forall a. (Int -> ReadS a) -> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a readListPrec :: ReadPrec [Direction] $creadListPrec :: ReadPrec [Direction] readPrec :: ReadPrec Direction $creadPrec :: ReadPrec Direction readList :: ReadS [Direction] $creadList :: ReadS [Direction] readsPrec :: Int -> ReadS Direction $creadsPrec :: Int -> ReadS Direction Read, Int -> Direction -> ShowS [Direction] -> ShowS Direction -> String (Int -> Direction -> ShowS) -> (Direction -> String) -> ([Direction] -> ShowS) -> Show Direction forall a. (Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a showList :: [Direction] -> ShowS $cshowList :: [Direction] -> ShowS show :: Direction -> String $cshow :: Direction -> String showsPrec :: Int -> Direction -> ShowS $cshowsPrec :: Int -> Direction -> ShowS Show)