let (isBinary, content)
= case (textData, binaryData) of
(Just text, Nothing ) -> (False, L.pack $ UTF8.encode text )
- (Nothing , Just binary) -> (True , L.pack $ B64.decode binary)
+ (Nothing , Just binary) -> (True , L.pack $ fromJust $ B64.decode binary)
_ -> error "one of textData or binaryData is required"
mimeType
= if isBinary then