diff --git a/app/Main.hs b/app/Main.hs
deleted file mode 100644
--- a/app/Main.hs
+++ /dev/null
@@ -1,6 +0,0 @@
-module Main where
-
-import Web.Tweet.Exec
-
-main :: IO ()
-main = exec
diff --git a/clit.cabal b/clit.cabal
--- a/clit.cabal
+++ b/clit.cabal
@@ -1,5 +1,5 @@
 name: clit
-version: 0.2.2.5
+version: 0.2.2.6
 cabal-version: >=1.10
 build-type: Simple
 license: BSD3
@@ -24,15 +24,15 @@
         Web.Tweet.Exec
     build-depends:
         base >=4.7 && <5,
-        aeson >=0.11.3.0 && <0.12,
-        http-client-tls >=0.2.4.1 && <0.3,
-        http-client >=0.4.31.2 && <0.5,
+        aeson >=1.0.2.1 && <1.1,
+        http-client-tls >=0.3.3.1 && <0.4,
+        http-client >=0.5.5 && <0.6,
         http-types >=0.9.1 && <0.10,
-        authenticate-oauth >=1.5.1.2 && <1.6,
+        authenticate-oauth ==1.6.*,
         bytestring >=0.10.8.1 && <0.11,
         split >=0.2.3.1 && <0.3,
-        optparse-applicative >=0.12.1.0 && <0.13,
-        lens ==4.14.*,
+        optparse-applicative >=0.13.1.0 && <0.14,
+        lens >=4.15.1 && <4.16,
         data-default >=0.7.1.1 && <0.8,
         text >=1.2.2.1 && <1.3
     default-language: Haskell2010
@@ -41,13 +41,4 @@
         Web.Tweet.Types
         Web.Tweet.Utils
         Web.Tweet.Sign
-
-executable tweet
-    main-is: Main.hs
-    build-depends:
-        base >=4.9.0.0 && <4.10,
-        clit >=0.2.2.5 && <0.3
-    default-language: Haskell2010
-    hs-source-dirs: app
-    ghc-options: -threaded -rtsopts -with-rtsopts=-N
 
diff --git a/src/Web/Tweet.hs b/src/Web/Tweet.hs
--- a/src/Web/Tweet.hs
+++ b/src/Web/Tweet.hs
@@ -67,7 +67,7 @@
 -- | Helper function to make `thread` easier to write. 
 thread' :: [String] -> [String] -> Maybe Int -> Int -> FilePath -> IO ()
 thread' content hs idNum num filepath = do
-    let f = \str i -> (flip tweetData filepath) (Tweet { _status = str, _trimUser = True, _handles = hs, _replyID = if i == 0 then Nothing else Just i })
+    let f = \str i -> tweetData (Tweet { _status = str, _trimUser = True, _handles = hs, _replyID = if i == 0 then Nothing else Just i }) filepath
     let initial = f (head content)
     void $ foldr ((>=>) . f) initial (reverse . drop 1 $ content) $ fromMaybe 0 idNum