\begin{code}
+-- Copyright 2008 the Contributors, as shown in the revision logs.
+-- Licensed under the Apache Public Source License 2.0 ("the License").
+-- You may not use this file except in compliance with the License.
+
module Doc
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
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]