Parser.hs

data Position = Position
  { row    :: Int,
    column :: Int
  } deriving (Data)
data Segment = Segment {start::Position, end::Position} deriving (Data)
data Node a b = Node {pos::Segment, node::a, load::b} deriving (Data)
type I a = Node a ()
newtype PLicense = PLicense {cs::[I PComment]} deriving (Data)
newtype PComment = PComment {c::Text} deriving (Data)