Changeset 5890 for src/Pugs/Pretty.hs

Timestamp:

07/29/05 17:19:17 (3 years ago)

Author:

bsmith

svk:copy_cache_prev:

7758

Message:

Added export lists to lots of haskell files.

Files:

• src/Pugs/Pretty.hs (modified) (3 diffs)

src/Pugs/Pretty.hs

@@ -13 +13 @@
 -}
 
-module Pugs.Pretty where
+module Pugs.Pretty (
+    Pretty, pretty,
+) where
 import Pugs.Internals
 import Pugs.Types
@@ -143 +145 @@
 quoted x = [x]
 
-ratToNum :: VRat -> VNum
-ratToNum x = (fromIntegral $ numerator x) / (fromIntegral $ denominator x)
-
 doubleBraces :: Doc -> Doc
 doubleBraces x = vcat [ (lbrace <> lbrace), nest defaultIndent x, rbrace <> rbrace]
@@ -152 +151 @@
 joinList x y = cat $ punctuate x y
 
-commasep :: [Doc] -> Doc
-commasep x = cat $ (punctuate (char ',')) x
-
 pretty :: Pretty a => a -> String
 pretty a = render $ format a