mirror of
https://github.com/urbit/shrub.git
synced 2024-12-29 23:23:52 +03:00
62 lines
1.3 KiB
Haskell
62 lines
1.3 KiB
Haskell
{-|
|
|
Pier Configuration
|
|
-}
|
|
module Urbit.King.Config where
|
|
|
|
import Urbit.Prelude
|
|
|
|
import qualified Urbit.Vere.Serf as Serf
|
|
|
|
{-|
|
|
All the configuration data revolving around a ship and the current
|
|
execution options.
|
|
-}
|
|
data PierConfig = PierConfig
|
|
{ _pcPierPath :: FilePath
|
|
, _pcDryRun :: Bool
|
|
, _pcSerfExe :: Maybe Text
|
|
, _pcSerfFlags :: [Serf.Flag]
|
|
} deriving (Show)
|
|
|
|
makeLenses ''PierConfig
|
|
|
|
class HasPierPath a where
|
|
pierPathL :: Lens' a FilePath
|
|
|
|
class HasDryRun a where
|
|
dryRunL :: Lens' a Bool
|
|
|
|
class (HasPierPath a, HasDryRun a) => HasPierConfig a where
|
|
pierConfigL :: Lens' a PierConfig
|
|
|
|
instance HasPierPath PierConfig where
|
|
pierPathL = pcPierPath
|
|
|
|
instance HasDryRun PierConfig where
|
|
dryRunL = pcDryRun
|
|
|
|
|
|
-------------------------------------------------------------------------------
|
|
|
|
data NetMode
|
|
= NMNone
|
|
| NMLocalhost
|
|
| NMNormal
|
|
deriving (Eq, Ord, Show)
|
|
|
|
data NetworkConfig = NetworkConfig
|
|
{ _ncNetMode :: NetMode
|
|
, _ncAmesPort :: Maybe Word16
|
|
, _ncNoAmes :: Bool
|
|
, _ncNoHttp :: Bool
|
|
, _ncNoHttps :: Bool
|
|
, _ncHttpPort :: Maybe Word16
|
|
, _ncHttpsPort :: Maybe Word16
|
|
, _ncLocalPort :: Maybe Word16
|
|
} deriving (Show)
|
|
|
|
makeLenses ''NetworkConfig
|
|
|
|
class HasNetworkConfig env where
|
|
networkConfigL :: Lens' env NetworkConfig
|