Direction.hs

module Direction(Direction(..)) where

data Direction = L | R | Dno Int  deriving (Eq, Ord, Read, Show)