Safe Haskell	None
Language	Haskell2010

Yesod.GitRepo

Synopsis

Documentation

data GitRepo a #

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)) #
Methods (==) :: Route (GitRepo a) -> Route (GitRepo a) -> Bool # (/=) :: Route (GitRepo a) -> Route (GitRepo a) -> Bool #
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 (GitRepo a)) #
Methods showsPrec :: Int -> Route (GitRepo a) -> ShowS # show :: Route (GitRepo a) -> String # showList :: [Route (GitRepo a)] -> ShowS #
RenderRoute (GitRepo a) #
Associated Types data Route (GitRepo a) :: * # Methods renderRoute :: Route (GitRepo a) -> ([Text], [(Text, Text)]) #
ParseRoute (GitRepo a) #
Methods parseRoute :: ([Text], [(Text, Text)]) -> Maybe (Route (GitRepo a)) #
YesodSubDispatch (GitRepo a) (HandlerT site IO) #
Methods yesodSubDispatch :: YesodSubRunnerEnv (GitRepo a) (HandlerSite (HandlerT site IO)) (HandlerT site IO) -> Application #
data Route (GitRepo a) #
data Route (GitRepo a) = GitRepoRoute

grRefresh :: GitRepo a -> IO () #

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 #

Get the current value of the content.

Since 0.1.0

gitRepo #

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) #

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 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 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 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 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 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