extendID :: P.Identifier -> Text -> P.Identifier
extendID base ext =
    P.Identifier (T.append (P.fromIdentifier base) ext)
extendID :: P.Identifier -> Text -> P.Identifier
extendID base ext =
    P.Identifier (T.append (P.fromIdentifier base) ext)
extendID base ext =
    P.Identifier (T.append (P.fromIdentifier base) ext)