{-# LANGUAGE OverloadedStrings #-}

import Network.HTTP.Conduit
import qualified Data.ByteString.Lazy as L
import qualified Data.ByteString.Char8 as C

main :: IO () 
main = do
	b <- getTweet "https://twitter.com/YELLEtweets/status/535845076316860417"
	case b of
		Nothing -> putStrLn "nothing to pring"
		Just body -> putStrLn body

getTweet :: String -> Maybe String
getTweet url = do
	initReq <- parseUrl url
	let req = initReq { secure = True } -- Turn on https
	response <- withManager $ httpLbs req
	body <- responseBody response
	case body of
		empty -> return Nothing
		_ -> return Just (L.unpack body)


module Main where

import qualified Data.ByteString as BS
import Data.Char

main :: IO ()
main = do
    bs <- BS.readFile "haskelltest.hs"
    let w8 = BS.unpack bs
    putStrLn $ map (chr . fromIntegral) w8