cli/ui/web: rename X.Options modules to X.XOptions

Make these modules' names more like the heavily-used types they
define (CliOpts, UIOpts, WebOpts). This is consistent with
RawOptions and ReportOptions, and helps with code navigation.

extra/hledger-chart/Hledger/Chart.hs

@@ -4,18 +4,18 @@ Re-export the modules of the hledger-chart program.
 
 module Hledger.Chart (
                      module Hledger.Chart.Main,
-                     module Hledger.Chart.Options,
+                     module Hledger.Chart.ChartOptions,
                      tests_Hledger_Chart
               )
 where
 import Test.HUnit
 
 import Hledger.Chart.Main
-import Hledger.Chart.Options
+import Hledger.Chart.ChartOptions
 
 tests_Hledger_Chart :: Test
 tests_Hledger_Chart = TestList
  [
  --  tests_Hledger_Chart_Main
- --  tests_Hledger_Chart_Options
+ --  tests_Hledger_Chart_ChartOptions
  ]

extra/hledger-chart/Hledger/Chart/Main.hs

@@ -23,7 +23,7 @@ import Text.Printf
 import Hledger
 import Hledger.Cli hiding (progname,progversion)
 
-import Hledger.Chart.Options
+import Hledger.Chart.ChartOptions
 
 main :: IO ()
 main = do

extra/hledger-chart/Hledger/Chart/Options.hs

@@ -3,7 +3,7 @@
 
 -}
 
-module Hledger.Chart.Options
+module Hledger.Chart.ChartOptions
 where
 import Data.Maybe
 import System.Console.CmdArgs

hledger-lib/Hledger/Utils/Debug.hs

@@ -71,7 +71,7 @@ ptrace msg = do
 -- a higher value (note: not @--debug N@ for some reason).  This uses
 -- unsafePerformIO and can be accessed from anywhere and before normal
 -- command-line processing. After command-line processing, it is also
--- available as the @debug_@ field of 'Hledger.Cli.Options.CliOpts'.
+-- available as the @debug_@ field of 'Hledger.Cli.CliOptions.CliOpts'.
 -- {-# OPTIONS_GHC -fno-cse #-} 
 -- {-# NOINLINE debugLevel #-}
 debugLevel :: Int

hledger-ui/Hledger/UI.hs

@@ -4,7 +4,7 @@ Re-export the modules of the hledger-ui program.
 
 module Hledger.UI (
                      module Hledger.UI.Main,
-                     module Hledger.UI.Options,
+                     module Hledger.UI.UIOptions,
                      module Hledger.UI.Theme,
                      tests_Hledger_UI
               )
@@ -12,12 +12,12 @@ where
 import Test.HUnit
 
 import Hledger.UI.Main
-import Hledger.UI.Options
+import Hledger.UI.UIOptions
 import Hledger.UI.Theme
 
 tests_Hledger_UI :: Test
 tests_Hledger_UI = TestList
  [
  --  tests_Hledger_UI_Main
- --  tests_Hledger_UI_Options
+ --  tests_Hledger_UI_UIOptions
  ]

hledger-ui/Hledger/UI/AccountsScreen.hs

@@ -25,8 +25,8 @@ import Brick.Widgets.List
 
 import Hledger
 import Hledger.Cli hiding (progname,prognameandversion,green)
--- import Hledger.Cli.Options (defaultBalanceLineFormat)
-import Hledger.UI.Options
+-- import Hledger.Cli.CliOptions (defaultBalanceLineFormat)
+import Hledger.UI.UIOptions
 -- import Hledger.UI.Theme
 import Hledger.UI.UITypes
 import Hledger.UI.UIUtils

hledger-ui/Hledger/UI/Main.hs

@@ -26,7 +26,7 @@ import Brick
 
 import Hledger
 import Hledger.Cli hiding (progname,prognameandversion,green)
-import Hledger.UI.Options
+import Hledger.UI.UIOptions
 import Hledger.UI.UITypes
 -- import Hledger.UI.UIUtils
 import Hledger.UI.Theme

hledger-ui/Hledger/UI/RegisterScreen.hs

@@ -24,7 +24,7 @@ import Brick.Widgets.List
 
 import Hledger
 import Hledger.Cli hiding (progname,prognameandversion,green)
-import Hledger.UI.Options
+import Hledger.UI.UIOptions
 -- import Hledger.UI.Theme
 import Hledger.UI.UITypes
 import Hledger.UI.UIUtils

hledger-ui/Hledger/UI/UIOptions.hs

@@ -3,7 +3,7 @@
 
 -}
 
-module Hledger.UI.Options
+module Hledger.UI.UIOptions
 where
 #if !MIN_VERSION_base(4,8,0)
 import Data.Functor.Compat ((<$>))

hledger-ui/Hledger/UI/UITypes.hs

@@ -6,7 +6,7 @@ import Brick
 import Brick.Widgets.List (List)
 
 import Hledger
-import Hledger.UI.Options
+import Hledger.UI.UIOptions
 
 ----------------------------------------------------------------------
 

hledger-ui/hledger-ui.cabal

@@ -76,7 +76,7 @@ executable hledger-ui
   other-modules:
       Hledger.UI
       Hledger.UI.Main
-      Hledger.UI.Options
+      Hledger.UI.UIOptions
       Hledger.UI.Theme
       Hledger.UI.UITypes
       Hledger.UI.UIUtils

hledger-web/Application.hs

@@ -36,11 +36,11 @@ import Handler.JournalR
 import Handler.RegisterR
 import Handler.SidebarR
 
-import Hledger.Web.Options (WebOpts(..), defwebopts)
+import Hledger.Web.WebOptions (WebOpts(..), defwebopts)
 import Hledger.Data (Journal, nulljournal)
 import Hledger.Read (readJournalFile)
 import Hledger.Utils (error')
-import Hledger.Cli.Options (defcliopts, journalFilePathFromOpts)
+import Hledger.Cli.CliOptions (defcliopts, journalFilePathFromOpts)
 
 -- This line actually creates our YesodDispatch instance. It is the second half
 -- of the call to mkYesodData which occurs in Foundation.hs. Please see the

hledger-web/Foundation.hs

@@ -30,7 +30,7 @@ import Text.Jasmine (minifym)
 import Text.Blaze.Html.Renderer.String (renderHtml)
 import Text.Hamlet (hamletFile)
 
-import Hledger.Web.Options
+import Hledger.Web.WebOptions
 import Hledger.Data.Types
 -- import Hledger.Web.Settings
 -- import Hledger.Web.Settings.StaticFiles

hledger-web/Handler/Common.hs

@@ -21,8 +21,8 @@ import Hledger.Utils
 import Hledger.Data
 import Hledger.Query
 import Hledger.Reports
-import Hledger.Cli.Options
-import Hledger.Web.Options
+import Hledger.Cli.CliOptions
+import Hledger.Web.WebOptions
 
 -------------------------------------------------------------------------------
 -- Common page layout

hledger-web/Handler/JournalR.hs

@@ -12,8 +12,8 @@ import Hledger.Data
 import Hledger.Query
 import Hledger.Reports
 import Hledger.Utils
-import Hledger.Cli.Options
-import Hledger.Web.Options
+import Hledger.Cli.CliOptions
+import Hledger.Web.WebOptions
 
 -- | The formatted journal view, with sidebar.
 getJournalR :: Handler Html

hledger-web/Handler/RegisterR.hs

@@ -17,8 +17,8 @@ import Hledger.Data
 import Hledger.Query
 import Hledger.Reports
 import Hledger.Utils
-import Hledger.Cli.Options
-import Hledger.Web.Options
+import Hledger.Cli.CliOptions
+import Hledger.Web.WebOptions
 
 -- | The main journal/account register view, with accounts sidebar.
 getRegisterR :: Handler Html

hledger-web/Hledger/Web.hs

@@ -3,19 +3,19 @@ Re-export the modules of the hledger-web program.
 -}
 
 module Hledger.Web (
-                     module Hledger.Web.Options,
+                     module Hledger.Web.WebOptions,
                      module Hledger.Web.Main,
                      tests_Hledger_Web
               )
 where
 import Test.HUnit
 
-import Hledger.Web.Options
+import Hledger.Web.WebOptions
 import Hledger.Web.Main
 
 tests_Hledger_Web :: Test
 tests_Hledger_Web = TestList
  [
- --  tests_Hledger_Web_Options
+ --  tests_Hledger_Web_WebOptions
  -- ,tests_Hledger_Web_Main
  ]

hledger-web/Hledger/Web/Main.hs

@@ -32,7 +32,7 @@ import Prelude hiding (putStrLn)
 import Hledger
 import Hledger.Utils.UTF8IOCompat (putStrLn)
 import Hledger.Cli hiding (progname,prognameandversion)
-import Hledger.Web.Options
+import Hledger.Web.WebOptions
 
 
 main :: IO ()

hledger-web/Hledger/Web/WebOptions.hs

@@ -1,5 +1,5 @@
 {-# LANGUAGE CPP #-}
-module Hledger.Web.Options
+module Hledger.Web.WebOptions
 where
 import Prelude
 #if !MIN_VERSION_base(4,8,0)

hledger-web/hledger-web.cabal

@@ -176,7 +176,7 @@ library
           Handler.Utils
           Hledger.Web
           Hledger.Web.Main
-          Hledger.Web.Options
+          Hledger.Web.WebOptions
           Import
           Settings
           Settings.Development

hledger-web/package.yaml

@@ -208,7 +208,7 @@ library:
     - Handler.Utils
     - Hledger.Web
     - Hledger.Web.Main
-    - Hledger.Web.Options
+    - Hledger.Web.WebOptions
     - Import
     - Settings
     - Settings.Development

hledger/Hledger/Cli.hs

@@ -18,7 +18,7 @@ module Hledger.Cli (
                      module Hledger.Cli.Print,
                      module Hledger.Cli.Register,
                      module Hledger.Cli.Stats,
-                     module Hledger.Cli.Options,
+                     module Hledger.Cli.CliOptions,
                      module Hledger.Cli.Utils,
                      module Hledger.Cli.Version,
                      tests_Hledger_Cli,
@@ -41,7 +41,7 @@ import Hledger.Cli.Incomestatement
 import Hledger.Cli.Print
 import Hledger.Cli.Register
 import Hledger.Cli.Stats
-import Hledger.Cli.Options
+import Hledger.Cli.CliOptions
 import Hledger.Cli.Utils
 import Hledger.Cli.Version
 
@@ -56,7 +56,7 @@ tests_Hledger_Cli = TestList
    ,tests_Hledger_Cli_Cashflow
    -- ,tests_Hledger_Cli_Histogram
    ,tests_Hledger_Cli_Incomestatement
-   ,tests_Hledger_Cli_Options
+   ,tests_Hledger_Cli_CliOptions
    -- ,tests_Hledger_Cli_Print
    ,tests_Hledger_Cli_Register
    -- ,tests_Hledger_Cli_Stats

hledger/Hledger/Cli/Accounts.hs

@@ -23,7 +23,7 @@ import Test.HUnit
 import Hledger
 import Prelude hiding (putStrLn)
 import Hledger.Utils.UTF8IOCompat (putStrLn)
-import Hledger.Cli.Options
+import Hledger.Cli.CliOptions
 
 
 -- | Command line options for this command.

hledger/Hledger/Cli/Add.hs

@@ -29,7 +29,7 @@ import Text.Parsec
 import Text.Printf
 
 import Hledger
-import Hledger.Cli.Options
+import Hledger.Cli.CliOptions
 import Hledger.Cli.Register (postingsReportAsText)
 
 

hledger/Hledger/Cli/Balance.hs

@@ -253,7 +253,7 @@ import Text.Tabular as T
 import Text.Tabular.AsciiArt
 
 import Hledger
-import Hledger.Cli.Options
+import Hledger.Cli.CliOptions
 import Hledger.Cli.Utils
 
 

hledger/Hledger/Cli/Balancesheet.hs

@@ -17,7 +17,7 @@ import Test.HUnit
 import Text.Shakespeare.Text
 
 import Hledger
-import Hledger.Cli.Options
+import Hledger.Cli.CliOptions
 import Hledger.Cli.Balance
 
 

hledger/Hledger/Cli/Cashflow.hs

@@ -20,7 +20,7 @@ import Test.HUnit
 import Text.Shakespeare.Text
 
 import Hledger
-import Hledger.Cli.Options
+import Hledger.Cli.CliOptions
 import Hledger.Cli.Balance
 
 

hledger/Hledger/Cli/CliOptions.hs

@@ -6,7 +6,7 @@ related utilities used by hledger commands.
 
 -}
 
-module Hledger.Cli.Options (
+module Hledger.Cli.CliOptions (
 
   -- * cmdargs flags & modes
   helpflags,
@@ -55,7 +55,7 @@ module Hledger.Cli.Options (
   hledgerAddons,
 
   -- * Tests
-  tests_Hledger_Cli_Options
+  tests_Hledger_Cli_CliOptions
 
 )
 where
@@ -584,7 +584,7 @@ getDirectoryContentsSafe d =
 
 -- tests
 
-tests_Hledger_Cli_Options :: Test
-tests_Hledger_Cli_Options = TestList
+tests_Hledger_Cli_CliOptions :: Test
+tests_Hledger_Cli_CliOptions = TestList
  [
  ]

hledger/Hledger/Cli/Histogram.hs

@@ -14,7 +14,7 @@ import System.Console.CmdArgs.Explicit
 import Text.Printf
 
 import Hledger
-import Hledger.Cli.Options
+import Hledger.Cli.CliOptions
 import Prelude hiding (putStr)
 import Hledger.Utils.UTF8IOCompat (putStr)
 

hledger/Hledger/Cli/Incomestatement.hs

@@ -17,7 +17,7 @@ import Test.HUnit
 import Text.Shakespeare.Text
 
 import Hledger
-import Hledger.Cli.Options
+import Hledger.Cli.CliOptions
 import Hledger.Cli.Balance
 
 

hledger/Hledger/Cli/Main.hs

@@ -60,7 +60,7 @@ import Hledger.Cli.Incomestatement
 import Hledger.Cli.Print
 import Hledger.Cli.Register
 import Hledger.Cli.Stats
-import Hledger.Cli.Options
+import Hledger.Cli.CliOptions
 import Hledger.Cli.Tests
 import Hledger.Cli.Utils
 import Hledger.Cli.Version
@@ -186,7 +186,7 @@ main = do
   -- on the raw command-line arguments, cmdarg's interpretation of
   -- same, and hledger-* executables in the user's PATH. A somewhat
   -- complex mishmash of cmdargs and custom processing, hence all the
-  -- debugging support and tests. See also Hledger.Cli.Options and
+  -- debugging support and tests. See also Hledger.Cli.CliOptions and
   -- command-line.test.
 
   -- some preliminary (imperfect) argument parsing to supplement cmdargs

hledger/Hledger/Cli/Print.hs

@@ -18,7 +18,7 @@ import Test.HUnit
 import Text.CSV
 
 import Hledger
-import Hledger.Cli.Options
+import Hledger.Cli.CliOptions
 import Hledger.Cli.Utils
 
 

hledger/Hledger/Cli/Register.hs

@@ -22,7 +22,7 @@ import Test.HUnit
 import Text.Printf
 
 import Hledger
-import Hledger.Cli.Options
+import Hledger.Cli.CliOptions
 import Hledger.Cli.Utils
 
 

hledger/Hledger/Cli/Stats.hs

@@ -21,7 +21,7 @@ import Text.Printf
 import qualified Data.Map as Map
 
 import Hledger
-import Hledger.Cli.Options
+import Hledger.Cli.CliOptions
 import Prelude hiding (putStr)
 import Hledger.Cli.Utils (writeOutput)
 

hledger/Hledger/Cli/Utils.hs

@@ -53,7 +53,7 @@ import System.Time (ClockTime(TOD))
 import Data.Time.Clock.POSIX (utcTimeToPOSIXSeconds)
 #endif
 
-import Hledger.Cli.Options
+import Hledger.Cli.CliOptions
 import Hledger.Data
 import Hledger.Read
 import Hledger.Utils

hledger/hledger.cabal

@@ -100,7 +100,7 @@ library
   exposed-modules:
       Hledger.Cli
       Hledger.Cli.Main
-      Hledger.Cli.Options
+      Hledger.Cli.CliOptions
       Hledger.Cli.Tests
       Hledger.Cli.Utils
       Hledger.Cli.Version

hledger/package.yaml

@@ -118,7 +118,7 @@ library:
   exposed-modules:
     - Hledger.Cli
     - Hledger.Cli.Main
-    - Hledger.Cli.Options
+    - Hledger.Cli.CliOptions
     - Hledger.Cli.Tests
     - Hledger.Cli.Utils
     - Hledger.Cli.Version