Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- defaultLayout $ do
- defaultHeaderW
- mainMenuW
- newsW
- newsW::Widget
- newsW = do
- addScriptRemote "https://cdn.ckeditor.com/4.5.2/standard/ckeditor.js"
- mainDivI <- newIdent
- addButtonI <- newIdent
- headerDivI <- newIdent
- titleI <- newIdent
- shortContentI <- newIdent
- contentI <- newIdent
- submitI <- newIdent
- addNewsFormI <- newIdent
- (addNewsFormW, addNewsFormE) <- handlerToWidget $ generateFormPost addNewsForm
- $(widgetFile "utils/jspost")
- $(widgetFile "news/news")
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement