FlattenMessage

This module used to have one function:

{- | Given a 'Network.Email.Message.Message' object, \"flatten\"
it into a simple, non-hierarchical list of its component single parts.

Data associated with a multipart will be lost, but each single child component
of the multipart will be preserved.
-}
flattenMessage :: Network.Email.Message.Message ->
                  [Network.Email.Message.Message]
flattenMessage x =
    case x of
       y@(Network.Email.Message.Singlepart {}) -> [y]
       y@(Network.Email.Message.Multipart {}) ->
           concatMap flattenMessage (Network.Email.Message.getParts y)

The modules were from WASH, so this is probably best sent back to WASH.