diff options
| author | Iavor S. Diatchki <iavor.diatchki@gmail.com> | 2014-02-03 18:31:23 -0800 |
|---|---|---|
| committer | Iavor S. Diatchki <iavor.diatchki@gmail.com> | 2014-02-03 18:31:23 -0800 |
| commit | a85e57deb287abdcdac8fb065ab0b20efe074d96 (patch) | |
| tree | 7c8c0537f528b8d30eb29c4305b26f5ac713706c /Codec/MIME/Utils.hs | |
| parent | 5c2f21e06ebc2c3be936efadfe92872fecd82db9 (diff) | |
| parent | 1823a3dd5443d98eab577988e9627fe74f3491fc (diff) | |
Merge pull request #4 from odr/master
Text API
Diffstat (limited to 'Codec/MIME/Utils.hs')
| -rw-r--r-- | Codec/MIME/Utils.hs | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/Codec/MIME/Utils.hs b/Codec/MIME/Utils.hs index 8606342..dd54860 100644 --- a/Codec/MIME/Utils.hs +++ b/Codec/MIME/Utils.hs @@ -18,10 +18,11 @@ module Codec.MIME.Utils import Codec.MIME.Type import Data.List ( find ) import Control.Monad ( msum ) +import Data.Text(Text) -- | Given a parameter name, locate it within a MIME value, -- returning the corresponding (sub) MIME value. -findMultipartNamed :: String -> MIMEValue -> Maybe MIMEValue +findMultipartNamed :: Text -> MIMEValue -> Maybe MIMEValue findMultipartNamed nm mv = case mime_val_content mv of Multi ms -> msum (map (findMultipartNamed nm) ms) |