diff options
| -rw-r--r-- | Omni/Agent.hs | 10 |
1 files changed, 4 insertions, 6 deletions
diff --git a/Omni/Agent.hs b/Omni/Agent.hs index 04e3d46..f3fc29d 100644 --- a/Omni/Agent.hs +++ b/Omni/Agent.hs @@ -3,7 +3,7 @@ {-# LANGUAGE QuasiQuotes #-} {-# LANGUAGE NoImplicitPrelude #-} --- : out agent-patched +-- : out agent -- : dep temporary module Omni.Agent where @@ -17,9 +17,7 @@ import qualified Omni.Test as Test import qualified System.Console.Docopt as Docopt main :: IO () -main = do - putStrLn "DEBUG: Running Agent" - Cli.main plan +main = Cli.main plan plan :: Cli.Plan () plan = @@ -71,8 +69,8 @@ test = Test.group "Omni.Agent" [unitTests, logTests] logTests :: Test.Tree logTests = Test.group - "Log tests XXX" - [ Test.unit "Log.emptyStatus XXX" <| do + "Log tests" + [ Test.unit "Log.emptyStatus" <| do let s = Log.emptyStatus "worker-1" Log.statusWorker s Test.@?= "worker-1" Log.statusFiles s Test.@?= 0 |