-------------------------------------------------------------------------------
-- * Located
-------------------------------------------------------------------------------


unL :: Located a -> a
unL (L _ x) = x
unL :: Located a -> a
unL (L _ x) = x
unL (L _ x) = x