Changeset 3568 for src/Pugs/Embed/Haskell.hs

Timestamp:

05/21/05 10:31:41 (4 years ago)

Author:

autrijus

svk:copy_cache_prev:

5154

Message:

* unbreak hs-plugins integration.

Files:

• src/Pugs/Embed/Haskell.hs (modified) (1 diff)

src/Pugs/Embed/Haskell.hs

@@ -21 +21 @@
     -- eval_ code [import] [flags] [package.confs] [load paths]
     --   -> IO (Either [error-strings] (Maybe a))
-    ret <- Eval.eval_ code imports [] [] []
+    ret <- liftIO $ Eval.eval_ code imports [] [] []
     case ret of
-        Right (Just x) -> return x
+        Right (Just x) -> return $ VStr x
         Right Nothing  -> fail "Something strange happened"
         Left x         -> fail $ unlines x