Refactoring

driver/cabal.hs

@@ -0,0 +1,8 @@
+module Main (main) where
+
+import           Prelude
+import qualified Test.DocTest.Internal.Cabal as Cabal
+import           System.Environment (getArgs)
+
+main :: IO ()
+main = getArgs >>= Cabal.doctest

package.yaml

@@ -51,6 +51,7 @@ library:
     - Test.DocTest.Internal.Location
     - Test.DocTest.Internal.Parse
     - Test.DocTest.Internal.Run
+    - Test.DocTest.Internal.Cabal
 
   dependencies: &dependencies
     ghc: ">= 8.0 && < 9.12"
@@ -63,6 +64,7 @@ library:
     process:
     ghc-paths: ">= 0.1.0.9"
     transformers:
+    temporary:
 
 flags:
   cabal-doctest:
@@ -71,19 +73,15 @@ flags:
     default: false
 
 executables:
-  doctest:
+  doctest: &doctest
     main: driver/doctest.hs
     ghc-options: -threaded
     dependencies:
       - doctest
 
   cabal-doctest:
-    main: driver/cabal-doctest.hs
-    ghc-options: -threaded
-    dependencies:
-      - process
-      - filepath
-      - temporary
+    <<: *doctest
+    main: driver/cabal.hs
     when:
       condition: flag(cabal-doctest)
       then:

driver/cabal-doctest.hs → src/Cabal.hs

@@ -1,7 +1,7 @@
 {-# LANGUAGE LambdaCase #-}
-module Main (main) where
+module Cabal (externalCommand) where
 
-import           Prelude
+import           Imports
 
 import           Data.Version
 import           System.Environment
@@ -12,9 +12,6 @@ import           System.Process
 
 import           Paths_doctest (version)
 
-main :: IO ()
-main = getArgs >>= externalCommand
-
 externalCommand :: [String] -> IO ()
 externalCommand args = do
   lookupEnv "CABAL" >>= \ case

src/Test/DocTest/Internal/Cabal.hs

@@ -0,0 +1,10 @@
+module Test.DocTest.Internal.Cabal (
+  doctest
+) where
+
+import           Imports
+
+import qualified Cabal
+
+doctest :: [String] -> IO ()
+doctest = Cabal.externalCommand