Merge pull request #14 from vaerksted/master

fix spelling errors

Text/XHtml/BlockTable.hs

@@ -67,7 +67,7 @@
 module Text.XHtml.BlockTable (
       -- * Datatypes
       BlockTable,
-      -- * Contruction Functions
+      -- * Construction Functions
       single,
       above,
       beside,
@@ -114,7 +114,7 @@ t1 `beside` t2 = combine t1 t2 (\ lst1 lst2 r ->
     let
       -- Note this depends on the fact that
       -- that the result has the same number
-      -- of lines as the y dimention; one list
+      -- of lines as the y dimension; one list
       -- per line. This is not true in general
       -- but is always true for these combinators.
       -- I should assert this!

Text/XHtml/Debug.hs

@@ -50,7 +50,7 @@ treeHtml colors h = table ! [
                  </> tl
         where
               -- This stops a column of colors being the same
-              -- color as the immeduately outside nesting bar.
+              -- color as the immediately outside nesting bar.
               morecolors = filter ((/= c).head) (manycolors cs)
               bar = td ! [bgcolor' c,width "10"] << spaceHtml
               hd = td ! [bgcolor' c] << hopen