@@ -49,9 +49,9 @@ mimeByExt mm def =
4949defaultMimeLookup :: FileName -> MimeType
5050defaultMimeLookup = mimeByExt defaultMimeMap defaultMimeType
5151
52−-- | Get a list of all of the file name extensions from a piece.
52+-- | Get a list of all of the file name extensions.
5353--
54−-- > pieceExtensions "foo.tar.gz" == ["tar.gz", "gz"]
54+-- > fileNameExtensions "foo.tar.gz" == ["tar.gz", "gz"]
5555fileNameExtensions :: FileName -> [Extension]
5656fileNameExtensions =
5757 go . T.toLower . dropToExt