Work in progress.
Feel free to grab it and modify to your needs.
sendPushNotification :: PushMessage -> IO (Either String PushTicketResponse)
createMessageSimple :: PushToken -> Title -> Body -> PushMessage
More details on how Expo API works.
Example Rust implementation.