fromPathPieceRead   :: Read a => Text -> Maybe a
fromPathPieceRead t = case reads . T.unpack $ t of
                        ((x,""):_) -> Just x
                        _          -> Nothing
fromPathPieceRead   :: Read a => Text -> Maybe a
fromPathPieceRead t = case reads . T.unpack $ t of
                        ((x,""):_) -> Just x
                        _          -> Nothing
fromPathPieceRead t = case reads . T.unpack $ t of
                        ((x,""):_) -> Just x
                        _          -> Nothing