- Just pageTitle <- getPageA sto -< "PageTitle"
- Just leftSideBar <- getPageA sto -< "SideBar/Left"
- Just rightSideBar <- getPageA sto -< "SideBar/Right"
+ Just pageTitle <- getPageA sto -< ("PageTitle" , Nothing)
+ Just leftSideBar <- getPageA sto -< ("SideBar/Left" , Nothing)
+ Just rightSideBar <- getPageA sto -< ("SideBar/Right", Nothing)