From 5bb95e50042fbd4de376a9d02c3ec6edf2eb1561 Mon Sep 17 00:00:00 2001
From: Carlos Sosa <gnusosa@gnusosa.net>
Date: Wed, 31 Jul 2019 22:43:08 -0700
Subject: Remove app/Main.hs given that we are going to use separate exes

---
 app/Main.hs | 48 ------------------------------------------------
 1 file changed, 48 deletions(-)
 delete mode 100644 app/Main.hs

(limited to 'app')

diff --git a/app/Main.hs b/app/Main.hs
deleted file mode 100644
index c2b7765..0000000
--- a/app/Main.hs
+++ /dev/null
@@ -1,48 +0,0 @@
-{-# LANGUAGE OverloadedStrings #-}
-{-# LANGUAGE FlexibleContexts #-}
-
-module Main where
-
-import Web.Twitter.Conduit
-import Web.Twitter.Types.Lens
-import Control.Lens
-import Conduit
-import qualified Data.Conduit.List as CL
-
-tokens :: OAuth
-tokens = twitterOAuth
-    { oauthConsumerKey = "YOUR_OAUTH_CONSUMER_KEY"
-    , oauthConsumerSecret = "YOUR_OAUTH_CONSUMER_SECRET"
-    }
-
-credential :: Credential
-credential = Credential
-    [ ("oauth_token", "YOUR_OAUTH_TOKEN")
-    , ("oauth_token_secret", "YOUR_OAUTH_TOKEN_SECRET")
-    ]
-
-twInfo :: TWInfo
-twInfo = def
-    { twToken = def { twOAuth = tokens, twCredential = credential }
-    , twProxy = Nothing
-    }
-
-main :: IO ()
-main = do
-    mgr <- newManager tlsManagerSettings
-    putStrLn $ "# your home timeline (up to 200 tweets):"
-    destroyReqs <- runConduit $
-      sourceWithMaxId twInfo mgr (userTimeline (ScreenNameParam "someUser"))
-      .| (CL.isolate 200)
-      .| (mapC (\status -> do
-                   status ^. statusId))
-      .| (mapC destroyId)
-      .| (mapC (\req -> do
-                   callWithResponse twInfo mgr req))
-      .| sinkList
-
-    resp <- sequence destroyReqs
-    mapM_ (putStrLn . show) resp
-
-
-
-- 
cgit v1.3-2-g0d8e