showMessage :: Message -> String
showMessage (Message m) = "MessageId: " ++
    show (view @messageId m) ++
    "\nFrom: " ++
    show (view @from m) ++
    "\nText: " ++
    show (view @text m) ++
    "\nPhoto: " ++
    show (view @photo m) ++
    "\n"
showMessage :: Message -> String
showMessage (Message m) = "MessageId: " ++
    show (view @messageId m) ++
    "\nFrom: " ++
    show (view @from m) ++
    "\nText: " ++
    show (view @text m) ++
    "\nPhoto: " ++
    show (view @photo m) ++
    "\n"
showMessage (Message m) = "MessageId: " ++
    show (view @messageId m) ++
    "\nFrom: " ++
    show (view @from m) ++
    "\nText: " ++
    show (view @text m) ++
    "\nPhoto: " ++
    show (view @photo m) ++
    "\n"