let (isBinary, content)
= case (textData, binaryData) of
(Just text, Nothing ) -> (False, L.pack $ UTF8.encode text )
let (isBinary, content)
= case (textData, binaryData) of
(Just text, Nothing ) -> (False, L.pack $ UTF8.encode text )
, entityContent = content
, entityUpdateInfo = updateInfo
}
, entityContent = content
, entityUpdateInfo = updateInfo
}