Permalink
Browse files

Clean up deps.

  • Loading branch information...
1 parent b341431 commit 049fc83b94f617b5d60f95e74e7f232b489c8de7 @msullivan committed Mar 30, 2012
Showing with 0 additions and 22 deletions.
  1. +0 −22 STTM.hs
View
@@ -5,8 +5,6 @@ module Main
) where
import qualified LazyK as K
-import Data.Array
-import Data.Char
import Data.List
import System.Exit
import System(getArgs)
@@ -18,11 +16,6 @@ import qualified Data.Map as M
import Data.Maybe
import Web.Codec.URLEncoder
-import Web.Twitter hiding (tweet)
---import Web.Twitter.Post
-import Web.Twitter.Fetch
-import Web.Twitter.Monad hiding (liftIO)
-import Web.Twitter.Types
import Data.Hash.MD5
import qualified Data.Binary as Binary
import qualified Data.ByteString.Base64.URL as Base64
@@ -57,7 +50,6 @@ readAtom "+" = Inc
readAtom s = if "#t" `isPrefixOf` s then Thunk (drop 2 s)
else Num (read s)
-
findSubstr s t =
if s `isPrefixOf` t then 0 else 1 + findSubstr s (tail t)
@@ -275,20 +267,6 @@ tweet :: String -> String -> IO ExitCode
tweet user message =
rawSystem "./twittering/tweet.sh" [user, encodeString message]
-{-
-runTweet = runTM (AuthUser {authUserName = "", authUserPass = "" })
-userSearch :: String -> IO [String]
-userSearch user = do
- result <- runTweet (getUserTimeline (Just user) Nothing Nothing)
- return $ map show result
-main :: IO ()
-main = do
- [login] <- getArgs
- statuses <- userSearch ("sttm000" ++ login)
- mapM_ putStrLn statuses
- return ()
--}
-
ltm_main_program = do
[sourceFile] <- getArgs
source <- readFile sourceFile

0 comments on commit 049fc83

Please sign in to comment.