Changeset 3082 for src/Pugs/Types

Timestamp:

05/12/05 16:14:22 (4 years ago)

Author:

autrijus

svk:copy_cache_prev:

4536

Message:

* fix %*ENV.exists

Files:

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

src/Pugs/Types/Hash.hs

@@ -86 +86 @@
         liftIO $ setEnv key str True
     hash_existsElem _ key = tryIO False $ do
-        getEnv key
-        return True
+        str <- getEnv key
+        return $ isJust str
     hash_deleteElem _ key = do
         liftIO $ unsetEnv key