blob: 143b770d6f25dd81ac03d26375673757e5cb3af7 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
|
{- |
Module : MIME.Utils
Copyright : (c) 2007-2008, Galois, Inc.
License : BSD3
Maintainer : Sigbjorn Finne <sof@galois.com>
Stability : unstable
Portability : GHC
Extracting content from MIME values and types.
-}
module Codec.MIME.Utils
( findMultipartNamed -- :: String -> MIMEValue -> Maybe MIMEValue
) where
import Codec.MIME.Type
import Data.List ( find )
import Control.Monad ( msum )
-- | Given a parameter name, locate it within a MIME value,
-- returning the corresponding (sub) MIME value.
findMultipartNamed :: String -> MIMEValue -> Maybe MIMEValue
findMultipartNamed nm mv =
case mime_val_content mv of
Multi ms -> msum (map (findMultipartNamed nm) ms)
Single {} -> do cd <- mime_val_disp mv
find (withDispName nm) (dispParams cd)
return mv
where withDispName a (Name b) = a == b
withDispName _ _ = False
|
