Refactoring

sol · Jul 15, 2024 · 9e49571 · 9e49571
1 parent 3a3e16b
commit 9e49571
Showing 1 changed file with 4 additions and 2 deletions.
diff --git a/driver/cabal-doctest.hs b/driver/cabal-doctest.hs
@@ -13,8 +13,10 @@ import           System.Process
 import           Paths_doctest (version)
 
 main :: IO ()
-main = do
-  args <- getArgs
+main = getArgs >>= externalCommand
+
+externalCommand :: [String] -> IO ()
+externalCommand args = do
   lookupEnv "CABAL" >>= \ case
     Nothing -> run "cabal" args
     Just cabal -> run cabal (drop 1 args)