{-# LANGUAGE DeriveAnyClass #-} {-# LANGUAGE DerivingStrategies #-} module Hercules.API.Build.LogLine where import Data.OpenApi qualified as O3 import Data.Word import Hercules.API.Prelude data LogLine = LogLine {LogLine -> Word64 i :: !Word64, LogLine -> Word64 ms :: !Word64, LogLine -> Text t :: !Text} deriving ((forall x. LogLine -> Rep LogLine x) -> (forall x. Rep LogLine x -> LogLine) -> Generic LogLine forall x. Rep LogLine x -> LogLine forall x. LogLine -> Rep LogLine x forall a. (forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a $cfrom :: forall x. LogLine -> Rep LogLine x from :: forall x. LogLine -> Rep LogLine x $cto :: forall x. Rep LogLine x -> LogLine to :: forall x. Rep LogLine x -> LogLine Generic, Int -> LogLine -> ShowS [LogLine] -> ShowS LogLine -> String (Int -> LogLine -> ShowS) -> (LogLine -> String) -> ([LogLine] -> ShowS) -> Show LogLine forall a. (Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a $cshowsPrec :: Int -> LogLine -> ShowS showsPrec :: Int -> LogLine -> ShowS $cshow :: LogLine -> String show :: LogLine -> String $cshowList :: [LogLine] -> ShowS showList :: [LogLine] -> ShowS Show, LogLine -> LogLine -> Bool (LogLine -> LogLine -> Bool) -> (LogLine -> LogLine -> Bool) -> Eq LogLine forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a $c== :: LogLine -> LogLine -> Bool == :: LogLine -> LogLine -> Bool $c/= :: LogLine -> LogLine -> Bool /= :: LogLine -> LogLine -> Bool Eq) deriving anyclass (LogLine -> () (LogLine -> ()) -> NFData LogLine forall a. (a -> ()) -> NFData a $crnf :: LogLine -> () rnf :: LogLine -> () NFData, [LogLine] -> Value [LogLine] -> Encoding LogLine -> Value LogLine -> Encoding (LogLine -> Value) -> (LogLine -> Encoding) -> ([LogLine] -> Value) -> ([LogLine] -> Encoding) -> ToJSON LogLine forall a. (a -> Value) -> (a -> Encoding) -> ([a] -> Value) -> ([a] -> Encoding) -> ToJSON a $ctoJSON :: LogLine -> Value toJSON :: LogLine -> Value $ctoEncoding :: LogLine -> Encoding toEncoding :: LogLine -> Encoding $ctoJSONList :: [LogLine] -> Value toJSONList :: [LogLine] -> Value $ctoEncodingList :: [LogLine] -> Encoding toEncodingList :: [LogLine] -> Encoding ToJSON, Value -> Parser [LogLine] Value -> Parser LogLine (Value -> Parser LogLine) -> (Value -> Parser [LogLine]) -> FromJSON LogLine forall a. (Value -> Parser a) -> (Value -> Parser [a]) -> FromJSON a $cparseJSON :: Value -> Parser LogLine parseJSON :: Value -> Parser LogLine $cparseJSONList :: Value -> Parser [LogLine] parseJSONList :: Value -> Parser [LogLine] FromJSON, Proxy LogLine -> Declare (Definitions Schema) NamedSchema (Proxy LogLine -> Declare (Definitions Schema) NamedSchema) -> ToSchema LogLine forall a. (Proxy a -> Declare (Definitions Schema) NamedSchema) -> ToSchema a $cdeclareNamedSchema :: Proxy LogLine -> Declare (Definitions Schema) NamedSchema declareNamedSchema :: Proxy LogLine -> Declare (Definitions Schema) NamedSchema ToSchema, Typeable LogLine Typeable LogLine => (Proxy LogLine -> Declare (Definitions Schema) NamedSchema) -> ToSchema LogLine Proxy LogLine -> Declare (Definitions Schema) NamedSchema forall a. Typeable a => (Proxy a -> Declare (Definitions Schema) NamedSchema) -> ToSchema a $cdeclareNamedSchema :: Proxy LogLine -> Declare (Definitions Schema) NamedSchema declareNamedSchema :: Proxy LogLine -> Declare (Definitions Schema) NamedSchema O3.ToSchema)