Changeset 8714 for src/Pugs/Embed

Timestamp:

01/17/06 11:12:53 (3 years ago)

Author:

audreyt

Message:

* The deriving error has nothing to do with envImplicit

(and everything to do with PerlSV had a duplicate YAML
instance) -- fix it correctly.

Files:

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

src/Pugs/Embed/Perl5.hs

@@ -4 +4 @@
 module Pugs.Embed.Perl5 where
 import Foreign.C.Types
+import Data.Typeable
 
 type PerlInterpreter = ()
-type PerlSV = ()
-type PugsVal = ()
+data PerlSV = MkPerlSV -- phantom type
+    deriving (Show, Eq, Ord, Typeable)
+type PugsVal = PerlSV
 
 constFail :: a -> IO b
@@ -37 +39 @@
 
 mkVal :: (Show a) => a -> IO PugsVal
-mkVal = const $ return ()
+mkVal = constFail
 
 mkValRef :: a -> IO PerlSV
-mkValRef = const $ return ()
+mkValRef = constFail
 
 vstrToSV :: String -> IO PerlSV