X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;ds=sidebyside;f=src%2FDoc.lhs;h=ab1418fc76a650a9cb3e6abd3b7565c50fe256ad;hb=173630fcedd7f473b0b7d28592b53288c1eff418;hp=589043922e2a2788bbf04b5bd8c379225dae2796;hpb=0c91eca8f33ec53c701be60ba6d11461153466a8;p=wix.git

diff --git a/src/Doc.lhs b/src/Doc.lhs
index 5890439..ab1418f 100644
--- a/src/Doc.lhs
+++ b/src/Doc.lhs
@@ -4,7 +4,7 @@ where
 import Numeric
 import Data.Bits
 import Data.Char
-import Edu.Berkeley.Sbp.Haskell.SBP
+import Edu_Berkeley_Sbp_Haskell_SBP
 import Util
 import FromTree
 import qualified Text.PrettyPrint.Leijen as PP
@@ -118,7 +118,7 @@ unindent (Tree "I" indent _) v = unindent' ((length indent)+1) v
 
 instance FromTree [Text] where
   fromTree (Tree "Word"    chars       _) = [Chars              $ concatMap fromTree chars]
-  fromTree (Tree "Ordinal" x           _) = [Command "ordinal"  $ [Chars (show x)]]
+  fromTree (Tree "Ordinal" x           _) = [Command "ordinal"  $ [Chars $ concatMap show x]]
   fromTree (Tree "Fraction" [n,d]      _) = [Command "fraction" $ [(Chars (show n)), (Chars (show d))]]
   fromTree (Tree "WS"     _            _) = [WS]
   fromTree (Tree "Quotes" [x]          _) = [Quotes $ fromTree x]