Safe Haskell	None
Language	Haskell2010

Yesod.GitRepo

Synopsis

Documentation

data GitRepo a Source #

A combination of Yesod subsite to be used for creating a refresh route, as well as action to extract the current value of the content and force a refresh.

Since 0.1.0

Instances

Eq (Route (GitRepo a)) Source #
Methods (==) :: Route (GitRepo a) -> Route (GitRepo a) -> Bool # (/=) :: Route (GitRepo a) -> Route (GitRepo a) -> Bool #
Read (Route (GitRepo a)) Source #
Methods readsPrec :: Int -> ReadS (Route (GitRepo a)) # readList :: ReadS [Route (GitRepo a)] # readPrec :: ReadPrec (Route (GitRepo a)) # readListPrec :: ReadPrec [Route (GitRepo a)] #
Show (Route (GitRepo a)) Source #
Methods showsPrec :: Int -> Route (GitRepo a) -> ShowS # show :: Route (GitRepo a) -> String # showList :: [Route (GitRepo a)] -> ShowS #
RenderRoute (GitRepo a) Source #
Associated Types data Route (GitRepo a) :: * # Methods renderRoute :: Route (GitRepo a) -> ([Text], [(Text, Text)]) #
ParseRoute (GitRepo a) Source #
Methods parseRoute :: ([Text], [(Text, Text)]) -> Maybe (Route (GitRepo a)) #
YesodSubDispatch (GitRepo a) site Source #
Methods yesodSubDispatch :: YesodSubRunnerEnv (GitRepo a) site -> Application #
data Route (GitRepo a) Source #
data Route (GitRepo a) = GitRepoRoute

grRefresh :: GitRepo a -> IO () Source #

Force a refresh of the content. Usually this is done automatically via a POST request to the subsite route.

Since 0.1.0

grContent :: GitRepo a -> IO a Source #

Get the current value of the content.

Since 0.1.0

gitRepo Source #

Arguments

:: Text	URL
-> Text	branch name
-> (FilePath -> IO a)	what to do on clone/refresh
-> IO (GitRepo a)

Create a new GitRepo value that can be used as a refresh subsite, as well as to extract the current value of the content.

Note that if the initial clone or user action fails, this function will throw an exception. For subsequent refreshes, the exception will be stored as an impure exception for future grContent calls.

Since 0.1.0

gitRepoDev :: FilePath -> (FilePath -> IO a) -> IO (GitRepo a) Source #

Like gitRepo, but intended to be used in a dev environment. It just uses a hard-coded FilePath and reloads the contents on each request.

Since 0.1.1

data family Route a :: * #

The type-safe URLs associated with a site argument.

Instances

Eq (Route LiteApp)
Methods (==) :: Route LiteApp -> Route LiteApp -> Bool # (/=) :: Route LiteApp -> Route LiteApp -> Bool #
Eq (Route WaiSubsite)
Methods (==) :: Route WaiSubsite -> Route WaiSubsite -> Bool # (/=) :: Route WaiSubsite -> Route WaiSubsite -> Bool #
Eq (Route WaiSubsiteWithAuth)
Methods (==) :: Route WaiSubsiteWithAuth -> Route WaiSubsiteWithAuth -> Bool # (/=) :: Route WaiSubsiteWithAuth -> Route WaiSubsiteWithAuth -> Bool #
Eq (Route (GitRepo a)) #
Methods (==) :: Route (GitRepo a) -> Route (GitRepo a) -> Bool # (/=) :: Route (GitRepo a) -> Route (GitRepo a) -> Bool #
Ord (Route LiteApp)
Methods compare :: Route LiteApp -> Route LiteApp -> Ordering # (<) :: Route LiteApp -> Route LiteApp -> Bool # (<=) :: Route LiteApp -> Route LiteApp -> Bool # (>) :: Route LiteApp -> Route LiteApp -> Bool # (>=) :: Route LiteApp -> Route LiteApp -> Bool # max :: Route LiteApp -> Route LiteApp -> Route LiteApp # min :: Route LiteApp -> Route LiteApp -> Route LiteApp #
Ord (Route WaiSubsite)
Methods compare :: Route WaiSubsite -> Route WaiSubsite -> Ordering # (<) :: Route WaiSubsite -> Route WaiSubsite -> Bool # (<=) :: Route WaiSubsite -> Route WaiSubsite -> Bool # (>) :: Route WaiSubsite -> Route WaiSubsite -> Bool # (>=) :: Route WaiSubsite -> Route WaiSubsite -> Bool # max :: Route WaiSubsite -> Route WaiSubsite -> Route WaiSubsite # min :: Route WaiSubsite -> Route WaiSubsite -> Route WaiSubsite #
Ord (Route WaiSubsiteWithAuth)
Methods compare :: Route WaiSubsiteWithAuth -> Route WaiSubsiteWithAuth -> Ordering # (<) :: Route WaiSubsiteWithAuth -> Route WaiSubsiteWithAuth -> Bool # (<=) :: Route WaiSubsiteWithAuth -> Route WaiSubsiteWithAuth -> Bool # (>) :: Route WaiSubsiteWithAuth -> Route WaiSubsiteWithAuth -> Bool # (>=) :: Route WaiSubsiteWithAuth -> Route WaiSubsiteWithAuth -> Bool # max :: Route WaiSubsiteWithAuth -> Route WaiSubsiteWithAuth -> Route WaiSubsiteWithAuth # min :: Route WaiSubsiteWithAuth -> Route WaiSubsiteWithAuth -> Route WaiSubsiteWithAuth #
Read (Route LiteApp)
Methods readsPrec :: Int -> ReadS (Route LiteApp) # readList :: ReadS [Route LiteApp] # readPrec :: ReadPrec (Route LiteApp) # readListPrec :: ReadPrec [Route LiteApp] #
Read (Route WaiSubsite)
Methods readsPrec :: Int -> ReadS (Route WaiSubsite) # readList :: ReadS [Route WaiSubsite] # readPrec :: ReadPrec (Route WaiSubsite) # readListPrec :: ReadPrec [Route WaiSubsite] #
Read (Route WaiSubsiteWithAuth)
Methods readsPrec :: Int -> ReadS (Route WaiSubsiteWithAuth) # readList :: ReadS [Route WaiSubsiteWithAuth] # readPrec :: ReadPrec (Route WaiSubsiteWithAuth) # readListPrec :: ReadPrec [Route WaiSubsiteWithAuth] #
Read (Route (GitRepo a)) #
Methods readsPrec :: Int -> ReadS (Route (GitRepo a)) # readList :: ReadS [Route (GitRepo a)] # readPrec :: ReadPrec (Route (GitRepo a)) # readListPrec :: ReadPrec [Route (GitRepo a)] #
Show (Route LiteApp)
Methods showsPrec :: Int -> Route LiteApp -> ShowS # show :: Route LiteApp -> String # showList :: [Route LiteApp] -> ShowS #
Show (Route WaiSubsite)
Methods showsPrec :: Int -> Route WaiSubsite -> ShowS # show :: Route WaiSubsite -> String # showList :: [Route WaiSubsite] -> ShowS #
Show (Route WaiSubsiteWithAuth)
Methods showsPrec :: Int -> Route WaiSubsiteWithAuth -> ShowS # show :: Route WaiSubsiteWithAuth -> String # showList :: [Route WaiSubsiteWithAuth] -> ShowS #
Show (Route (GitRepo a)) #
Methods showsPrec :: Int -> Route (GitRepo a) -> ShowS # show :: Route (GitRepo a) -> String # showList :: [Route (GitRepo a)] -> ShowS #
data Route LiteApp
data Route LiteApp = LiteAppRoute [Text]
data Route WaiSubsite
data Route WaiSubsite = WaiSubsiteRoute [Text] [(Text, Text)]
data Route WaiSubsiteWithAuth
data Route WaiSubsiteWithAuth = WaiSubsiteWithAuthRoute [Text] [(Text, Text)]
data Route (GitRepo a) #
data Route (GitRepo a) = GitRepoRoute