module Life.Core
(
Branch (..)
, Owner (..)
, Repo (..)
, CommitMsg (..)
, master
, CopyDirection (..)
, LifePath (..)
) where
newtype Owner = Owner
{ Owner -> Text
unOwner :: Text
} deriving stock (Int -> Owner -> ShowS
[Owner] -> ShowS
Owner -> String
(Int -> Owner -> ShowS)
-> (Owner -> String) -> ([Owner] -> ShowS) -> Show Owner
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [Owner] -> ShowS
$cshowList :: [Owner] -> ShowS
show :: Owner -> String
$cshow :: Owner -> String
showsPrec :: Int -> Owner -> ShowS
$cshowsPrec :: Int -> Owner -> ShowS
Show)
newtype Repo = Repo
{ Repo -> Text
unRepo :: Text
} deriving stock (Int -> Repo -> ShowS
[Repo] -> ShowS
Repo -> String
(Int -> Repo -> ShowS)
-> (Repo -> String) -> ([Repo] -> ShowS) -> Show Repo
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [Repo] -> ShowS
$cshowList :: [Repo] -> ShowS
show :: Repo -> String
$cshow :: Repo -> String
showsPrec :: Int -> Repo -> ShowS
$cshowsPrec :: Int -> Repo -> ShowS
Show)
newtype Branch = Branch
{ Branch -> Text
unBranch :: Text
} deriving stock (Int -> Branch -> ShowS
[Branch] -> ShowS
Branch -> String
(Int -> Branch -> ShowS)
-> (Branch -> String) -> ([Branch] -> ShowS) -> Show Branch
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [Branch] -> ShowS
$cshowList :: [Branch] -> ShowS
show :: Branch -> String
$cshow :: Branch -> String
showsPrec :: Int -> Branch -> ShowS
$cshowsPrec :: Int -> Branch -> ShowS
Show)
deriving newtype (Branch -> Branch -> Bool
(Branch -> Branch -> Bool)
-> (Branch -> Branch -> Bool) -> Eq Branch
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: Branch -> Branch -> Bool
$c/= :: Branch -> Branch -> Bool
== :: Branch -> Branch -> Bool
$c== :: Branch -> Branch -> Bool
Eq)
newtype CommitMsg = CommitMsg
{ CommitMsg -> Text
unCommitMsg :: Text
} deriving stock (Int -> CommitMsg -> ShowS
[CommitMsg] -> ShowS
CommitMsg -> String
(Int -> CommitMsg -> ShowS)
-> (CommitMsg -> String)
-> ([CommitMsg] -> ShowS)
-> Show CommitMsg
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [CommitMsg] -> ShowS
$cshowList :: [CommitMsg] -> ShowS
show :: CommitMsg -> String
$cshow :: CommitMsg -> String
showsPrec :: Int -> CommitMsg -> ShowS
$cshowsPrec :: Int -> CommitMsg -> ShowS
Show)
master :: Branch
master :: Branch
master = Text -> Branch
Branch "master"
data CopyDirection
= FromHomeToRepo
| FromRepoToHome
data LifePath
= File FilePath
| Dir FilePath
deriving stock (Int -> LifePath -> ShowS
[LifePath] -> ShowS
LifePath -> String
(Int -> LifePath -> ShowS)
-> (LifePath -> String) -> ([LifePath] -> ShowS) -> Show LifePath
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [LifePath] -> ShowS
$cshowList :: [LifePath] -> ShowS
show :: LifePath -> String
$cshow :: LifePath -> String
showsPrec :: Int -> LifePath -> ShowS
$cshowsPrec :: Int -> LifePath -> ShowS
Show)