Changeset 3934 for src/Pugs/Embed/Perl5.hs

Timestamp:

05/27/05 01:30:01 (4 years ago)

Author:

autrijus

svk:copy_cache_prev:

5515

Message:

* segfault solved

Files:

• src/Pugs/Embed/Perl5.hs (modified) (2 diffs)

src/Pugs/Embed/Perl5.hs

@@ -114 +114 @@
     pugs_MkValRef :: PugsVal -> IO PerlSV
 
-initPerl5 :: String -> Maybe a -> IO PerlInterpreter
+initPerl5 :: (Show a) => String -> Maybe a -> IO PerlInterpreter
 initPerl5 str env = do
     withCString "-e" $ \prog -> withCString str $ \cstr -> do
@@ -138 +138 @@
 svToVBool = perl5_SvTRUE
 
-svToVal :: PerlSV -> IO a
+svToVal :: (Show a) => PerlSV -> IO a
 svToVal sv = do
     ptr <- pugs_SvToVal sv