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

Timestamp:

05/12/05 17:36:24 (4 years ago)

Author:

autrijus

svk:copy_cache_prev:

4536

Message:

* attempt another fix on %ENV.exists.

Files:

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

src/Pugs/Types/Hash.hs

@@ -87 +87 @@
     hash_existsElem _ key = tryIO False $ do
         str <- getEnv key
-        return $ isJust str
+        return $ case str of
+            Just (_:_)  -> True
+            _           -> False
     hash_deleteElem _ key = do
         liftIO $ unsetEnv key