ClientOptions.hs

   1 -- This file is part of Diohsc
   2 -- Copyright (C) 2020-23 Martin Bays <mbays@sdf.org>
   3 --
   4 -- This program is free software: you can redistribute it and/or modify
   5 -- it under the terms of version 3 of the GNU General Public License as
   6 -- published by the Free Software Foundation, or any later version.
   7 --
   8 -- You should have received a copy of the GNU General Public License
   9 -- along with this program.  If not, see http://www.gnu.org/licenses/.
  10
  11 module ClientOptions where
  12
  13 import           System.IO
  14
  15 import           GeminiProtocol (RequestContext)
  16
  17 -- |Immutable options set at startup
  18 data ClientOptions = ClientOptions
  19     { cOptUserDataDir    :: FilePath
  20     , cOptInteractive    :: Bool
  21     , cOptAnsi           :: Bool
  22     , cOptGhost          :: Bool
  23     , cOptRestrictedMode :: Bool
  24     , cOptRequestContext :: RequestContext
  25     , cOptLogH           :: Maybe Handle
  26     }