- pageTitle <- listA (readSubPage env) -< (Nothing, Nothing, "PageTitle")
- leftSideBar <- listA (readSubPage env) -< (Nothing, Nothing, "SideBar/Left")
- rightSideBar <- listA (readSubPage env) -< (Nothing, Nothing, "SideBar/Right")
+ pageTitle <- listA (readSubPage env) -< "PageTitle"
+ leftSideBar <- listA (readSubPage env) -< "SideBar/Left"
+ rightSideBar <- listA (readSubPage env) -< "SideBar/Right"