Changeset 17178

Timestamp:

07/30/07 17:41:45 (16 months ago)

Author:

masak

Message:

[Prim/Code.hs]
* corrections from auto-review ;)

Files:

• src/Pugs/Prim/Code.hs (modified) (2 diffs)

src/Pugs/Prim/Code.hs

@@ -5 +5 @@
 import Pugs.AST
 import Pugs.Internals
-import qualified Data.ByteString.Char8 as Char8
 -- import Pugs.Pretty
 
@@ -25 +24 @@
 op1CodeName v = do
     code <- fromVal v
-    return . VStr $ case Char8.unpack(subName code) of
+    return . VStr $ case cast $ subName code of
         "<anon>"  -> cast $ subName code
         _         -> "&" ++ cast (subPackage code) ++