1 files changed, 1 insertions(+), 1 deletions(-)

M Email.hs

@@ 99,7 99,7 @@ isTextPlain = MIME.matchContentType (s"text") (Just $ s"plain") .
 
 getAttachmentsAndMedia :: (Monoid a) =>
 	   ((MIME.ContentType, ByteString)
-	    -> Const a (MIME.ContentType, ByteString))
+	-> Const a (MIME.ContentType, ByteString))
 	-> MIME.MIMEMessage -> Const a MIME.MIMEMessage
 getAttachmentsAndMedia = MIME.entities . filtered (\part ->
 		(MIME.isAttachment part || has (MIME.contentType .