telegram-types-0.1.0: test/Spec.hs

module Main where

import Data.Aeson
import qualified Data.ByteString.Lazy as LBS
import Web.Telegram.Types.Input
import Web.Telegram.Types.Update
import Web.Telegram.Types

main :: IO ()
main = do
  f <- LBS.readFile "test/Message1"
  print $ (eitherDecode f :: Either String Update)
  LBS.putStrLn $ encode (def :: InputMedia)