diff --git a/app/Main.hs b/app/Main.hs
--- a/app/Main.hs
+++ b/app/Main.hs
@@ -1,6 +1,20 @@
+{-# LANGUAGE DataKinds         #-}
+{-# LANGUAGE DeriveAnyClass    #-}
+{-# LANGUAGE DeriveGeneric     #-}
+{-# LANGUAGE OverloadedStrings #-}
+{-# LANGUAGE TypeOperators     #-}
+
 module Main where
 
-import           Language.ATS.Generate (exec)
+import           Language.ATS.Generate
+import           Options.Generic
 
+data Program = Program { src    :: FilePath <?> "Haskell source file"
+                       , target :: FilePath <?> "ATS target"
+                       , cpphs  :: Bool <?> "Use cpphs as a preprocessor"
+                       } deriving (Generic, ParseRecord)
+
 main :: IO ()
-main = exec
+main = do
+    x <- getRecord "Generate ATS types for Haskell source code" :: IO Program
+    genATSTypes (unHelpful . src $ x) (unHelpful . target $ x) (unHelpful . cpphs $ x)
diff --git a/hs2ats.cabal b/hs2ats.cabal
--- a/hs2ats.cabal
+++ b/hs2ats.cabal
@@ -1,6 +1,6 @@
 cabal-version: 1.18
 name: hs2ats
-version: 0.2.1.8
+version: 0.2.1.9
 license: BSD3
 license-file: LICENSE
 copyright: Copyright: (c) 2018 Vanessa McHale
@@ -40,7 +40,6 @@
         language-ats >=1.0.0.0,
         casing -any,
         microlens -any,
-        optparse-generic -any,
         ansi-wl-pprint -any,
         composition-prelude -any,
         deepseq -any,
@@ -60,6 +59,7 @@
     ghc-options: -threaded -rtsopts -with-rtsopts=-N -Wall
     build-depends:
         base -any,
+        optparse-generic -any,
         hs2ats -any
     
     if flag(no-executable)
diff --git a/src/Language/ATS/Generate.hs b/src/Language/ATS/Generate.hs
--- a/src/Language/ATS/Generate.hs
+++ b/src/Language/ATS/Generate.hs
@@ -1,13 +1,7 @@
-{-# LANGUAGE DataKinds         #-}
-{-# LANGUAGE DeriveAnyClass    #-}
-{-# LANGUAGE DeriveGeneric     #-}
-{-# LANGUAGE OverloadedStrings #-}
-{-# LANGUAGE PatternSynonyms   #-}
-{-# LANGUAGE TypeOperators     #-}
+{-# LANGUAGE PatternSynonyms #-}
 
 module Language.ATS.Generate
-    ( exec
-    , generateATS
+    ( generateATS
     , genATSTypes
     , ErrM
     ) where
@@ -23,14 +17,8 @@
 import           Language.Haskell.Exts.Syntax as HS
 import           Language.Preprocessor.Cpphs  (defaultCpphsOptions, runCpphs)
 import           Lens.Micro                   (over, _head)
-import           Options.Generic
 import           Text.Casing                  (quietSnake)
 
-data Program = Program { src    :: FilePath <?> "Haskell source file"
-                       , target :: FilePath <?> "ATS target"
-                       , cpphs  :: Bool <?> "Use cpphs as a preprocessor"
-                       } deriving (Generic, ParseRecord)
-
 convertConventions :: String -> String
 convertConventions = filterKeys . quietSnake
 
@@ -186,8 +174,3 @@
     contents <- proc =<< readFile p
     let warnDo (x, es) = mapM_ displayErr es >> writeFile p' x
     either displayErr warnDo (generateATS p contents)
-
-exec :: IO ()
-exec = do
-    x <- getRecord "Generate ATS types for Haskell source code" :: IO Program
-    genATSTypes (unHelpful . src $ x) (unHelpful . target $ x) (unHelpful . cpphs $ x)