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

Timestamp:

05/26/05 23:35:17 (4 years ago)

Author:

autrijus

svk:copy_cache_prev:

5482

Message:

* pugsembed callback #1 -- pugs_MkSvRef -- finished

Files:

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

src/Pugs/Embed/Perl5.hs

@@ -32 +32 @@
 svToVBool = constFail
 
-svToVal :: PerlSV -> IO (Maybe a)
+svToVal :: PerlSV -> IO a
 svToVal = constFail
 
@@ -123 +123 @@
 svToVBool = perl5_SvTRUE
 
-svToVal :: PerlSV -> IO (Maybe a)
+svToVal :: PerlSV -> IO a
 svToVal sv = do
     ptr <- pugs_SvToVal sv
-    if ptr == nullPtr
-        then return Nothing
-        else fmap Just $ deRefStablePtr (castPtrToStablePtr ptr)
+    deRefStablePtr (castPtrToStablePtr ptr)
 
 valToSV :: a -> IO PerlSV