diff --git a/colonnade/src/Colonnade/Encoding.hs b/colonnade/src/Colonnade/Encoding.hs
index 87fab4f..86cfc6c 100644
--- a/colonnade/src/Colonnade/Encoding.hs
+++ b/colonnade/src/Colonnade/Encoding.hs
@@ -43,7 +43,7 @@ runRowMonadicWith :: (Monad m)
               -> a
               -> m b
 runRowMonadicWith bempty bappend (Encoding v) g a =
-  foldrM (\e br -> do
+  foldlM (\br e -> do
     bl <- g (oneEncodingEncode e a)
     return (bappend bl br)
   ) bempty v
diff --git a/reflex-dom-colonnade/src/Reflex/Dom/Colonnade.hs b/reflex-dom-colonnade/src/Reflex/Dom/Colonnade.hs
index f9e5725..f7076f8 100644
--- a/reflex-dom-colonnade/src/Reflex/Dom/Colonnade.hs
+++ b/reflex-dom-colonnade/src/Reflex/Dom/Colonnade.hs
@@ -53,10 +53,11 @@ basic tableAttrs as encoding = do
 -- | Table with cells that can create expanded content
 --   between the rows.
 expandable :: (MonadWidget t m, Foldable f)
-  => String
-  -> String
-  -> f a
+  => String -- ^ Table class
+  -> String -- ^ Class of expanded table rows
+  -> f a -- ^ Values
   -> Encoding Headed (Cell m (Event t (Maybe (m ())))) a
+     -- ^ Encoding into cells with events that can fire to create additional content under the row
   -> m ()
 expandable tableClass tdExtraClass as encoding@(Encoding v) = do
   let vlen = Vector.length v