Changeset 8699 for src/Pugs/Types

Timestamp:

01/16/06 13:08:43 (3 years ago)

Author:

audreyt

Message:

* DrIFT.YAML: Do not die when the Typeable instance is undefined.

Files:

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

src/Pugs/Types/Code.hs

@@ -17 +17 @@
     code_store    = (liftSTM .) . writeTVar
     code_assuming c [] [] = code_fetch c
-    code_assuming _ _ _   = undefined
+    code_assuming _ _ _   = error "assuming"
     code_apply    = error "apply"
     code_assoc c  = code_assoc . unsafePerformSTM $ readTVar c