Advertisement
Guest User

Untitled

a guest
Sep 2nd, 2015
59
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.51 KB | None | 0 0
  1. defaultLayout $ do
  2. defaultHeaderW
  3. mainMenuW
  4. newsW
  5.  
  6. newsW::Widget
  7. newsW = do
  8. addScriptRemote "https://cdn.ckeditor.com/4.5.2/standard/ckeditor.js"
  9. mainDivI <- newIdent
  10. addButtonI <- newIdent
  11. headerDivI <- newIdent
  12. titleI <- newIdent
  13. shortContentI <- newIdent
  14. contentI <- newIdent
  15. submitI <- newIdent
  16. addNewsFormI <- newIdent
  17. (addNewsFormW, addNewsFormE) <- handlerToWidget $ generateFormPost addNewsForm
  18. $(widgetFile "utils/jspost")
  19. $(widgetFile "news/news")
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement