Changeset 15617
- Timestamp:
- 03/12/07 01:44:00 (21 months ago)
- Files:
-
- 1 modified
-
src/Pugs/AST/Internals/Instances.hs (modified) (4 diffs)
Legend:
- Unmodified
- Added
- Removed
-
src/Pugs/AST/Internals/Instances.hs
r15591 r15617 52 52 {-# NOINLINE _FakeEnv #-} 53 53 _FakeEnv :: Env 54 _FakeEnv = unsafePerformIO $ liftSTM$ do54 _FakeEnv = unsafePerformIO $ stm $ do 55 55 ref <- newTVar Map.empty 56 56 glob <- newTVar $ MkPad Map.empty … … 79 79 80 80 fakeEval :: MonadIO m => Eval Val -> m Val 81 fakeEval = liftIO. runEvalIO _FakeEnv81 fakeEval = io . runEvalIO _FakeEnv 82 82 83 83 instance YAML Val.Val … … 142 142 val <- fakeEval $ readRef ref 143 143 svC <- asYAML val 144 liftIO$ print "====>"145 liftIO$ print svC144 io $ print "====>" 145 io $ print svC 146 146 fail ("Not implemented: asYAML \"" ++ showType (refType ref) ++ "\"") 147 147 fromYAML MkNode{n_tag=Just s, n_elem=ESeq [node]} … … 163 163 instance YAML IHash where 164 164 asYAML x = do 165 l <- liftIO$ H.toList x165 l <- io $ H.toList x 166 166 asYAMLmap "IHash" (map (\(k, v) -> (k, asYAML v)) l) 167 167 fromYAML node = do
