chore: Add an HtmlT if we need more monads later on

main
Henrik Böving 2021-12-17 15:59:04 +01:00
parent cb582aab57
commit dc5c2ab92a
1 changed files with 2 additions and 1 deletions

View File

@ -19,7 +19,8 @@ structure SiteContext where
def setCurrentName (name : Name) (ctx : SiteContext) := {ctx with currentName := some name}
abbrev HtmlM := Reader SiteContext
abbrev HtmlT := ReaderT SiteContext
abbrev HtmlM := HtmlT Id
def getRoot : HtmlM String := do (←read).root
def getResult : HtmlM AnalyzerResult := do (←read).result