{-# LANGUAGE DeriveAnyClass #-}

module Hercules.Agent.WorkerProtocol.Command.StartDaemon where

import Data.Binary
import Protolude

data StartDaemon = StartDaemon
  { StartDaemon -> FilePath
socketPath :: FilePath
  }
  deriving ((forall x. StartDaemon -> Rep StartDaemon x)
-> (forall x. Rep StartDaemon x -> StartDaemon)
-> Generic StartDaemon
forall x. Rep StartDaemon x -> StartDaemon
forall x. StartDaemon -> Rep StartDaemon x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep StartDaemon x -> StartDaemon
$cfrom :: forall x. StartDaemon -> Rep StartDaemon x
Generic, Get StartDaemon
[StartDaemon] -> Put
StartDaemon -> Put
(StartDaemon -> Put)
-> Get StartDaemon -> ([StartDaemon] -> Put) -> Binary StartDaemon
forall t. (t -> Put) -> Get t -> ([t] -> Put) -> Binary t
putList :: [StartDaemon] -> Put
$cputList :: [StartDaemon] -> Put
get :: Get StartDaemon
$cget :: Get StartDaemon
put :: StartDaemon -> Put
$cput :: StartDaemon -> Put
Binary, Int -> StartDaemon -> ShowS
[StartDaemon] -> ShowS
StartDaemon -> FilePath
(Int -> StartDaemon -> ShowS)
-> (StartDaemon -> FilePath)
-> ([StartDaemon] -> ShowS)
-> Show StartDaemon
forall a.
(Int -> a -> ShowS) -> (a -> FilePath) -> ([a] -> ShowS) -> Show a
showList :: [StartDaemon] -> ShowS
$cshowList :: [StartDaemon] -> ShowS
show :: StartDaemon -> FilePath
$cshow :: StartDaemon -> FilePath
showsPrec :: Int -> StartDaemon -> ShowS
$cshowsPrec :: Int -> StartDaemon -> ShowS
Show, StartDaemon -> StartDaemon -> Bool
(StartDaemon -> StartDaemon -> Bool)
-> (StartDaemon -> StartDaemon -> Bool) -> Eq StartDaemon
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: StartDaemon -> StartDaemon -> Bool
$c/= :: StartDaemon -> StartDaemon -> Bool
== :: StartDaemon -> StartDaemon -> Bool
$c== :: StartDaemon -> StartDaemon -> Bool
Eq)