module U.Codebase.Sqlite.HistoryComment (HistoryComment (..)) where

import Data.Text (Text)

data HistoryComment causal id = HistoryComment
  { forall causal id. HistoryComment causal id -> Text
author :: Text,
    forall causal id. HistoryComment causal id -> Text
subject :: Text,
    forall causal id. HistoryComment causal id -> Text
content :: Text,
    forall causal id. HistoryComment causal id -> causal
causal :: causal,
    forall causal id. HistoryComment causal id -> id
commentId :: id
  }
  deriving (Int -> HistoryComment causal id -> ShowS
[HistoryComment causal id] -> ShowS
HistoryComment causal id -> String
(Int -> HistoryComment causal id -> ShowS)
-> (HistoryComment causal id -> String)
-> ([HistoryComment causal id] -> ShowS)
-> Show (HistoryComment causal id)
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
forall causal id.
(Show causal, Show id) =>
Int -> HistoryComment causal id -> ShowS
forall causal id.
(Show causal, Show id) =>
[HistoryComment causal id] -> ShowS
forall causal id.
(Show causal, Show id) =>
HistoryComment causal id -> String
$cshowsPrec :: forall causal id.
(Show causal, Show id) =>
Int -> HistoryComment causal id -> ShowS
showsPrec :: Int -> HistoryComment causal id -> ShowS
$cshow :: forall causal id.
(Show causal, Show id) =>
HistoryComment causal id -> String
show :: HistoryComment causal id -> String
$cshowList :: forall causal id.
(Show causal, Show id) =>
[HistoryComment causal id] -> ShowS
showList :: [HistoryComment causal id] -> ShowS
Show, HistoryComment causal id -> HistoryComment causal id -> Bool
(HistoryComment causal id -> HistoryComment causal id -> Bool)
-> (HistoryComment causal id -> HistoryComment causal id -> Bool)
-> Eq (HistoryComment causal id)
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
forall causal id.
(Eq causal, Eq id) =>
HistoryComment causal id -> HistoryComment causal id -> Bool
$c== :: forall causal id.
(Eq causal, Eq id) =>
HistoryComment causal id -> HistoryComment causal id -> Bool
== :: HistoryComment causal id -> HistoryComment causal id -> Bool
$c/= :: forall causal id.
(Eq causal, Eq id) =>
HistoryComment causal id -> HistoryComment causal id -> Bool
/= :: HistoryComment causal id -> HistoryComment causal id -> Bool
Eq, (forall a b.
 (a -> b) -> HistoryComment causal a -> HistoryComment causal b)
-> (forall a b.
    a -> HistoryComment causal b -> HistoryComment causal a)
-> Functor (HistoryComment causal)
forall a b. a -> HistoryComment causal b -> HistoryComment causal a
forall a b.
(a -> b) -> HistoryComment causal a -> HistoryComment causal b
forall causal a b.
a -> HistoryComment causal b -> HistoryComment causal a
forall causal a b.
(a -> b) -> HistoryComment causal a -> HistoryComment causal b
forall (f :: * -> *).
(forall a b. (a -> b) -> f a -> f b)
-> (forall a b. a -> f b -> f a) -> Functor f
$cfmap :: forall causal a b.
(a -> b) -> HistoryComment causal a -> HistoryComment causal b
fmap :: forall a b.
(a -> b) -> HistoryComment causal a -> HistoryComment causal b
$c<$ :: forall causal a b.
a -> HistoryComment causal b -> HistoryComment causal a
<$ :: forall a b. a -> HistoryComment causal b -> HistoryComment causal a
Functor)