[Fix up Layout after fixes to HSX, no more explicit type signatures
Niklas Broberg <nibro@cs.chalmers.se>**20080504000303] {
hunk ./src/HSX/Layout.hs 16
-  | Item (XMLGenT m [Child m])
+  | Item (GenChildList m)
hunk ./src/HSX/Layout.hs 35
-instance (XMLGenerator m, 
-          EmbedAsChild m (XMLGenT m (XML m)), 
-          EmbedAsChild m (XMLGenT m [XML m]),
-          EmbedAsAttr  m (Attr String String))
-          => EmbedAsChild m (Layout m) where
- asChild a@(Above _ _) = asChild (
-   <table border="0"><% 
-       mapM mkRow $ foldAbove a :: XMLGenT m [XML m]
-   %></table> :: XMLGenT m (XML m))
- asChild b@(Beside _ _) = asChild (
-   <table border="0"><%
-     <tr><% 
-       mapM mkCell $ foldBeside b :: XMLGenT m [XML m] 
-     %></tr>  :: XMLGenT m (XML m)
-   %></table> :: XMLGenT m (XML m))
+instance XMLGenerator m => EmbedAsChild m (Layout m) where
+ asChild a@(Above _ _) = asChild $
+   <table border="0"><% mapM mkRow $ foldAbove a %></table>
+ asChild b@(Beside _ _) = asChild $
+   <table border="0"><tr><% mapM mkCell $ foldBeside b %></tr></table>
hunk ./src/HSX/Layout.hs 50
-mkRow :: forall m c . (XMLGenerator m, 
-                       EmbedAsChild m c, 
-                       EmbedAsChild m (XMLGenT m (XML m))) 
-       => c -> XMLGenT m (XML m)
-mkRow xml = <tr><% (mkCell xml :: XMLGenT m (XML m)) %></tr> 
+mkRow :: (XMLGenerator m, EmbedAsChild m c) => c -> GenXML m
+mkRow xml = <tr><% mkCell xml %></tr> 
hunk ./src/HSX/Layout.hs 53
-mkCell :: (XMLGenerator m, EmbedAsChild m c) => c -> XMLGenT m (XML m)
+mkCell :: (XMLGenerator m, EmbedAsChild m c) => c -> GenXML m
}