Changeset 2907 for src/Pugs/Types/Hash.hs

Timestamp:

05/09/05 23:48:13 (4 years ago)

Author:

bsmith

svk:copy_cache_prev:

4437

Message:

Fixed the build: compensated for getEnv's new Maybe signature through the use
of fmaps, >>=s and fromMaybe's.

Files:

• src/Pugs/Types/Hash.hs (modified) (1 diff)

src/Pugs/Types/Hash.hs

@@ -81 +81 @@
     hash_fetchVal _ key = tryIO undef $ do
         str <- getEnv key
-        return $ VStr str
+        return $ fromMaybe VUndef (fmap VStr str)
     hash_storeVal _ key val = do
         str <- fromVal val