ENH add option to only test the dependency tree and spit out results
This commit is contained in:
parent
334816ce47
commit
48722f79a4
|
@ -11,6 +11,8 @@ module Main (main) where
|
|||
-- * Theme integration with xmonad (shared module imported below)
|
||||
-- * A custom Locks plugin from my own forked repo
|
||||
|
||||
import Control.Monad
|
||||
|
||||
import Data.Internal.DBus
|
||||
import Data.Internal.Dependency
|
||||
import Data.List
|
||||
|
@ -52,6 +54,7 @@ main = getArgs >>= parse
|
|||
parse :: [String] -> IO ()
|
||||
parse [] = run
|
||||
parse ["--deps"] = withCache printDeps
|
||||
parse ["--test"] = void $ withCache . evalConfig =<< connectDBus
|
||||
parse _ = usage
|
||||
|
||||
run :: IO ()
|
||||
|
|
|
@ -71,8 +71,10 @@ main = getArgs >>= parse
|
|||
parse :: [String] -> IO ()
|
||||
parse [] = run
|
||||
parse ["--deps"] = withCache printDeps
|
||||
parse ["--test"] = void $ withCache . evalConf =<< connectDBusX
|
||||
parse _ = usage
|
||||
|
||||
|
||||
run :: IO ()
|
||||
run = do
|
||||
db <- connectDBusX
|
||||
|
|
Loading…
Reference in New Issue