makeEvent "upload"
    (JSONEventData{filecontents = Just fc})
        = UploadComplete (BUL.toString $ b, b)
        where
            (Right b) = B64.decode fc
makeEvent "upload"
    (JSONEventData{filecontents = Just fc})
        = UploadComplete (BUL.toString $ b, b)
        where
            (Right b) = B64.decode fc
makeEvent "upload"
    (JSONEventData{filecontents = Just fc})
        = UploadComplete (BUL.toString $ b, b)
        where
            (Right b) = B64.decode fc