From: adam <adam@megacz.com>
Date: Wed, 28 Jan 2009 22:05:07 +0000 (-0800)
Subject: use nowrap on pre-blocks
X-Git-Url: http://git.megacz.com/?p=wix.git;a=commitdiff_plain;h=5957ec155f716b36c7f3cd776bc74318ff3cb523;hp=d6cca41c056cb20446676e4229ecedabb60688f9

use nowrap on pre-blocks

darcs-hash:20090128220507-5007d-5325067c2f8bd840f8256284a074b34f0de23bf3.gz
---

diff --git a/src/Html.lhs b/src/Html.lhs
index 7a61bd4..5784cb5 100644
--- a/src/Html.lhs
+++ b/src/Html.lhs
@@ -313,7 +313,7 @@ htmlEscapeChar '\'' = "&apos;"
 htmlEscapeChar '\"' = "&quot;"
 htmlEscapeChar c    = [c]
 
-pre x = "\n<div class=pre>"++ (pre' x) ++ "\n</div>\n"
+pre x = "\n<div class=pre style='white-space:nowrap'>"++ (pre' x) ++ "\n</div>\n"
  where
   pre' (' ':b)         = "&nbsp;"++(pre' b)
   pre' ('\n':b)        = "<br/>\n"++(pre' b)