Permalink
Browse files

Added a Data instnce for ExtRef.

  • Loading branch information...
luqui committed Nov 14, 2008
1 parent 66e3d6b commit 15012e5ed0e5cc20bcad58e9813494b6db5bce1d
Showing with 3 additions and 0 deletions.
  1. +3 −0 Udon/Database.hs
View
@@ -13,6 +13,9 @@ import Data.Binary.Put (runPut)
class Data a where
desc :: DataDesc a
+instance Data a => Data (ExtRef a) where
+ desc = ref desc
+
data Database m
-- The weird signature for fetch is an optimization. Sometimes
-- it's easier to tell whether you *can* get a reference than

0 comments on commit 15012e5

Please sign in to comment.