FlattenMessage

jgoerzen edited this page Sep 14, 2010 · 1 revision

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.

You can’t perform that action at this time.
You signed in with another tab or window. Reload to refresh your session. You signed out in another tab or window. Reload to refresh your session.
Press h to open a hovercard with more details.