Changeset 21673 for src/Pugs/CodeGen/PIR.hs
- Timestamp:
- 08/01/08 13:56:05 (5 months ago)
- Files:
-
- 1 modified
-
src/Pugs/CodeGen/PIR.hs (modified) (3 diffs)
Legend:
- Unmodified
- Added
- Removed
-
src/Pugs/CodeGen/PIR.hs
r16627 r21673 18 18 import Pugs.Types 19 19 import Pugs.PIL1 20 import Emit.PIR.Instances () 21 import Emit.PIR 20 import Language.PIR 22 21 import Pugs.Pretty 23 22 import Text.PrettyPrint … … 27 26 import Pugs.Run (getLibs) 28 27 import DrIFT.YAML 29 import qualified UTF8 as Str28 import qualified Data.ByteString.UTF8 as Str 30 29 31 30 type CodeGen a = WriterT [Stmt] (ReaderT TEnv IO) a … … 250 249 trans x = transError x 251 250 252 instance LiteralClass Var Expressionwhere251 instance LiteralClass Var where 253 252 lit = ExpLit . LitStr . cast 254 253 255 instance LiteralClass ByteString Expressionwhere254 instance LiteralClass ByteString where 256 255 lit = ExpLit . LitStr . cast 257 256
