--------------------------------------------------------------------------------

toPathPieceShow :: Show a => a -> Text
toPathPieceShow = T.pack . show
toPathPieceShow :: Show a => a -> Text
toPathPieceShow = T.pack . show
toPathPieceShow = T.pack . show