trySplitRAPathOnLast :: L1.L1RelOrAbsPath -> Maybe (L1.L1RelOrAbsPath, L1.L1Identifier)
trySplitRAPathOnLast (L1.L1RelOrAbsPath ss ra p) =
   maybe Nothing (\(x, y) -> Just (L1.L1RelOrAbsPath ss ra x, y))
         (trySplitRPathOnLast p)
trySplitRAPathOnLast :: L1.L1RelOrAbsPath -> Maybe (L1.L1RelOrAbsPath, L1.L1Identifier)
trySplitRAPathOnLast (L1.L1RelOrAbsPath ss ra p) =
   maybe Nothing (\(x, y) -> Just (L1.L1RelOrAbsPath ss ra x, y))
         (trySplitRPathOnLast p)
trySplitRAPathOnLast (L1.L1RelOrAbsPath ss ra p) =
   maybe Nothing (\(x, y) -> Just (L1.L1RelOrAbsPath ss ra x, y))
         (trySplitRPathOnLast p)