Share optpars-applicative utils across executables

app/Dm.hs

@@ -5,6 +5,7 @@ module Main where
 
 -- Local packages
 import Dockmaster
+import Options.Utils
 
 -- External packages
 import Shelly
@@ -79,15 +80,3 @@ opts defaultCompDir = info (helper <*> parser defaultCompDir)
   <> progDesc "Orchestrate your docker-compose"
   <> header "dm - yaml loving docker compose orchestration"
   )
-
--- | 'Text' option
-textOption :: Mod OptionFields String -> Parser T.Text
-textOption = fmap T.pack . strOption
-
--- | 'Text' argument type
-text :: ReadM T.Text
-text = str >>= return . T.pack
-
--- | 'FilePath' option
-filePathOption :: Mod OptionFields String -> Parser FilePath
-filePathOption = fmap fromText . textOption

app/Dmc.hs

@@ -5,6 +5,7 @@ module Main where
 
 -- Local packages
 import Dockmaster
+import Options.Utils
 
 -- External packages
 import Shelly hiding (command)

dockmaster.cabal

@@ -20,6 +20,7 @@ description:
 library
   hs-source-dirs:      src
   exposed-modules:     Dockmaster
+                     , Options.Utils
   other-modules:       Dockmaster.Compose
                      , Dockmaster.Config.Parser
                      , Dockmaster.Config.Types
@@ -36,6 +37,7 @@ library
                      , text
                      , unordered-containers
                      , yaml
+                     , optparse-applicative
   default-language:    Haskell2010
 
 executable dm
@@ -55,9 +57,10 @@ executable dmc
   ghc-options:         -threaded -rtsopts -with-rtsopts=-N
   build-depends:       base
                      , dockmaster
+                     , either >= 4.4.1.1
+                     , optparse-applicative
                      , shelly
                      , text
-                     , optparse-applicative
   default-language:    Haskell2010
 
 test-suite dockmaster-test

src/Options/Utils.hs

@@ -0,0 +1,32 @@
+{-|
+Module      : Options.Utils
+Description : Options.Applicative utilities
+License     : ASL-2
+Maintainer  : [email protected]
+Stability   : experimental
+Portability : POSIX
+-}
+{-# LANGUAGE OverloadedStrings #-}
+{-# LANGUAGE ExtendedDefaultRules #-}
+{-# OPTIONS_GHC -fno-warn-type-defaults #-}
+module Options.Utils where
+
+import Options.Applicative
+import Shelly (FilePath, fromText)
+import Prelude hiding (FilePath)
+import Data.Monoid ((<>))
+import qualified Data.Text as T
+
+default (T.Text)
+
+-- | 'Text' option
+textOption :: Mod OptionFields String -> Parser T.Text
+textOption = fmap T.pack . strOption
+
+-- | 'Text' argument type
+text :: ReadM T.Text
+text = str >>= return . T.pack
+
+-- | 'FilePath' option
+filePathOption :: Mod OptionFields String -> Parser FilePath
+filePathOption = fmap fromText . textOption