Changeset 4153 for src/Pugs/Internals.hs

Timestamp:

05/30/05 09:15:32 (4 years ago)

Author:

autrijus

svk:copy_cache_prev:

5706

Message:

* opendir/readdir/rewinddir/closedir on *nix.

Files:

• src/Pugs/Internals.hs (modified) (1 diff)

src/Pugs/Internals.hs

@@ -133 +133 @@
 instance Ord (a -> b) where
     compare _ _ = LT
+instance Eq Dynamic where
+    _ == _ = False
+instance Ord Dynamic where
+    compare _ _ = LT
 
 internalError :: String -> a