cli: begin merging addons, make check-dates a builtin command

hledger/Hledger/Cli/Commands.hs

@@ -18,6 +18,7 @@ module Hledger.Cli.Commands (
   ,module Hledger.Cli.Commands.Balancesheet
   ,module Hledger.Cli.Commands.Balancesheetequity
   ,module Hledger.Cli.Commands.Cashflow
+  ,module Hledger.Cli.Commands.Checkdates
   ,module Hledger.Cli.Commands.Help
   ,module Hledger.Cli.Commands.Incomestatement
   ,module Hledger.Cli.Commands.Print
@@ -47,6 +48,7 @@ import Hledger.Cli.Commands.Balance
 import Hledger.Cli.Commands.Balancesheet
 import Hledger.Cli.Commands.Balancesheetequity
 import Hledger.Cli.Commands.Cashflow
+import Hledger.Cli.Commands.Checkdates
 import Hledger.Cli.Commands.Help
 import Hledger.Cli.Commands.Incomestatement
 import Hledger.Cli.Commands.Print
@@ -65,6 +67,7 @@ builtinCommands = [
   ,(balancesheetmode       , balancesheet) 
   ,(balancesheetequitymode , balancesheetequity) 
   ,(cashflowmode           , cashflow) 
+  ,(checkdatesmode         , checkdates) 
   ,(helpmode               , help') 
   ,(incomestatementmode    , incomestatement) 
   ,(printmode              , print') 

hledger/Hledger/Cli/Commands/Checkdates.hs

@@ -5,16 +5,23 @@
    --package here
 -}
 
-{-# OPTIONS_GHC -Wno-missing-signatures -Wno-name-shadowing #-}
 {-# LANGUAGE QuasiQuotes #-}
 
+module Hledger.Cli.Commands.Checkdates (
+  checkdatesmode
+ ,checkdates
+ ,tests_Hledger_Cli_Commands_Checkdates
+) where
+
 import Data.String.Here
 import Hledger
-import Hledger.Cli
+import Hledger.Cli.CliOptions
+import System.Console.CmdArgs.Explicit
+import Test.HUnit
 import Text.Printf
 
-------------------------------------------------------------------------------
-cmdmode = hledgerCommandMode
+-- checkdatesmode :: Mode RawOpts
+checkdatesmode = hledgerCommandMode
   [here| check-dates
 Check that transactions' dates are monotonically increasing.
 With --date2, checks secondary dates instead.
@@ -27,13 +34,9 @@ FLAGS
   [generalflagsgroup1]
   []
   ([], Just $ argsFlag "[QUERY]")
-------------------------------------------------------------------------------
 
-main :: IO ()
-main = do
-  opts <- getHledgerCliOpts cmdmode
-  withJournalDo opts $
-   \CliOpts{rawopts_=rawopts,reportopts_=ropts} j -> do
+checkdates :: CliOpts -> Journal -> IO ()
+checkdates CliOpts{rawopts_=rawopts,reportopts_=ropts} j = do
   d <- getCurrentDay
   let ropts_ = ropts{accountlistmode_=ALFlat}
   let q = queryFromOpts d ropts_
@@ -83,3 +86,7 @@ checkTransactions compare ts =
       then acc{fa_previous=Just current}
       else acc{fa_error=Just current}
 
+tests_Hledger_Cli_Commands_Checkdates :: Test
+tests_Hledger_Cli_Commands_Checkdates = TestList
+ [
+ ]

hledger/hledger.cabal

@@ -129,6 +129,7 @@ library
       Hledger.Cli.Commands.Balancesheet
       Hledger.Cli.Commands.Balancesheetequity
       Hledger.Cli.Commands.Cashflow
+      Hledger.Cli.Commands.Checkdates
       Hledger.Cli.Commands.Help
       Hledger.Cli.Commands.Incomestatement
       Hledger.Cli.Commands.Print

hledger/package.yaml

@@ -110,6 +110,7 @@ library:
   - Hledger.Cli.Commands.Balancesheet
   - Hledger.Cli.Commands.Balancesheetequity
   - Hledger.Cli.Commands.Cashflow
+  - Hledger.Cli.Commands.Checkdates
   - Hledger.Cli.Commands.Help
   - Hledger.Cli.Commands.Incomestatement
   - Hledger.Cli.Commands.Print