Web.Informative

Documentation

type WikiHandler a = forall master. (YesodWikiAuth master, YesodPersist master, YesodPersistBackend master ~ SqlBackend) => HandlerT Informative (HandlerT master IO) a

class (Yesod master, RenderMessage master FormMessage) => YesodWikiAuth master where

Methods

getAuthR :: HandlerT master IO (AuthRoute -> Route master)

getUserName :: HandlerT master IO Text

isLoggedIn :: HandlerT master IO Bool

wikiLayout :: WidgetT master IO () -> HandlerT master IO Html

data Wikipage

Constructors

Wikipage

Fields

wikipageTitle :: !Text

wikipageSegment :: !Text

wikipageEditor :: !Text

wikipageTimestamp :: !UTCTime

Instances

PersistFieldSql Wikipage

PersistEntity Wikipage

PersistField Wikipage

ToBackendKey SqlBackend Wikipage

Eq (Key Wikipage)

Ord (Key Wikipage)

Read (Key Wikipage)

Show (Key Wikipage)

ToJSON (Key Wikipage)

FromJSON (Key Wikipage)

PathPiece (Key Wikipage)

PersistFieldSql (Key Wikipage)

PersistField (Key Wikipage)

data Unique Wikipage = UniquePage Text Text UTCTime

data EntityField Wikipage where

• WikipageId :: (~) * typ (Key Wikipage) => EntityField Wikipage typ
• WikipageTitle :: (~) * typ Text => EntityField Wikipage typ
• WikipageSegment :: (~) * typ Text => EntityField Wikipage typ
• WikipageEditor :: (~) * typ Text => EntityField Wikipage typ
• WikipageTimestamp :: (~) * typ UTCTime => EntityField Wikipage typ

data Key Wikipage = WikipageKey {

• unWikipageKey :: BackendKey SqlBackend

}

type PersistEntityBackend Wikipage = SqlBackend

type WikipageId = Key Wikipage

data Wikisection

Constructors

Wikisection

Fields

wikisectionContent :: !Text

wikisectionFormat :: !TextFormat

wikisectionKind :: !TextKind

Instances

PersistFieldSql Wikisection

PersistEntity Wikisection

PersistField Wikisection

ToBackendKey SqlBackend Wikisection

Eq (Key Wikisection)

Ord (Key Wikisection)

Read (Key Wikisection)

Show (Key Wikisection)

ToJSON (Key Wikisection)

FromJSON (Key Wikisection)

PathPiece (Key Wikisection)

PersistFieldSql (Key Wikisection)

PersistField (Key Wikisection)

data Unique Wikisection

data EntityField Wikisection where

• WikisectionId :: (~) * typ (Key Wikisection) => EntityField Wikisection typ
• WikisectionContent :: (~) * typ Text => EntityField Wikisection typ
• WikisectionFormat :: (~) * typ TextFormat => EntityField Wikisection typ
• WikisectionKind :: (~) * typ TextKind => EntityField Wikisection typ

data Key Wikisection = WikisectionKey {

• unWikisectionKey :: BackendKey SqlBackend

}

type PersistEntityBackend Wikisection = SqlBackend

type WikisectionId = Key Wikisection

data Wikirel

Constructors

Wikirel

Fields

wikirelPage :: !(Key Wikipage)

wikirelSection :: !(Key Wikisection)

wikirelIndex :: !Int

Instances

PersistFieldSql Wikirel

PersistEntity Wikirel

PersistField Wikirel

ToBackendKey SqlBackend Wikirel

Eq (Key Wikirel)

Ord (Key Wikirel)

Read (Key Wikirel)

Show (Key Wikirel)

ToJSON (Key Wikirel)

FromJSON (Key Wikirel)

PathPiece (Key Wikirel)

PersistFieldSql (Key Wikirel)

PersistField (Key Wikirel)

data Unique Wikirel = UniqueRel (Key Wikipage) (Key Wikisection)

data EntityField Wikirel where

• WikirelId :: (~) * typ (Key Wikirel) => EntityField Wikirel typ
• WikirelPage :: (~) * typ (Key Wikipage) => EntityField Wikirel typ
• WikirelSection :: (~) * typ (Key Wikisection) => EntityField Wikirel typ
• WikirelIndex :: (~) * typ Int => EntityField Wikirel typ

data Key Wikirel = WikirelKey {

• unWikirelKey :: BackendKey SqlBackend

}

type PersistEntityBackend Wikirel = SqlBackend

type WikirelId = Key Wikirel

data Wikisugg

Constructors

Wikisugg

Fields

wikisuggPage :: !Text

wikisuggSegment :: !Text

wikisuggIndex :: !Int

wikisuggCaption :: !Text

Instances

PersistFieldSql Wikisugg

PersistEntity Wikisugg

PersistField Wikisugg

ToBackendKey SqlBackend Wikisugg

Eq (Key Wikisugg)

Ord (Key Wikisugg)

Read (Key Wikisugg)

Show (Key Wikisugg)

ToJSON (Key Wikisugg)

FromJSON (Key Wikisugg)

PathPiece (Key Wikisugg)

PersistFieldSql (Key Wikisugg)

PersistField (Key Wikisugg)

data Unique Wikisugg = UniqueSugg Text Text

data EntityField Wikisugg where

• WikisuggId :: (~) * typ (Key Wikisugg) => EntityField Wikisugg typ
• WikisuggPage :: (~) * typ Text => EntityField Wikisugg typ
• WikisuggSegment :: (~) * typ Text => EntityField Wikisugg typ
• WikisuggIndex :: (~) * typ Int => EntityField Wikisugg typ
• WikisuggCaption :: (~) * typ Text => EntityField Wikisugg typ

data Key Wikisugg = WikisuggKey {

• unWikisuggKey :: BackendKey SqlBackend

}

type PersistEntityBackend Wikisugg = SqlBackend

type WikisuggId = Key Wikisugg

migrateWiki :: Migration

readFmt :: TextFormat -> ReaderOptions -> String -> Pandoc

convFmt :: TextFormat -> String -> Html

convSect :: TextKind -> TextFormat -> Text -> Either Html [[Html]]

convTable :: TextFormat -> Text -> Either Html [[Html]]

source :: TextFormat -> Text -> Int -> TextFormat

fmtNorm :: TextFormat -> TextFormat

fmtLang :: TextFormat -> Text

fmtLine :: TextFormat -> Int

toClassname :: Text -> [Char]

remCR :: [Char] -> [Char]

renderShowArticle :: YesodWikiAuth master => [Entity Wikisugg] -> Bool -> (AuthRoute -> Route master) -> (Route Informative -> Route master) -> AuthResult -> Maybe Html -> [(Int, (Text, Either Html [[Html]], TextKind))] -> [(Text, Text, UTCTime)] -> Text -> HandlerT Informative (HandlerT master IO) Html

renderEditArticle :: YesodWikiAuth master => [Entity Wikisugg] -> Bool -> (AuthRoute -> Route master) -> (Route Informative -> Route master) -> Route master -> Maybe Html -> Maybe (Either Html [[Html]]) -> TextKind -> PageContent (Route master) -> Text -> HandlerT Informative (HandlerT master IO) Html

getArticleIdR :: Text -> WikiHandler Html

getArticleR :: Text -> WikiHandler Html

data SectionData

Constructors

SectionData

Fields

sdKind :: TextKind

sdFormat :: TextFormat

sdLang :: Text

sdFirstLine :: Int

sdContent :: Textarea

editSectionForm :: RenderMessage master FormMessage => Maybe SectionData -> Html -> MForm (HandlerT master IO) (FormResult SectionData, WidgetT master IO ())

getEditR :: Text -> WikiHandler Html

getInsertR :: Text -> WikiHandler Html

getPrependR :: Text -> WikiHandler Html

getCreateR :: Text -> WikiHandler Html

postEditR :: Text -> WikiHandler Html

postInsertR :: Text -> WikiHandler Html

postPrependR :: Text -> WikiHandler Html

postCreateR :: Text -> WikiHandler Html

postDownR :: Text -> WikiHandler Html

postUpR :: Text -> WikiHandler Html

postDeleteR :: Text -> WikiHandler Html