Commit e63cfa08 authored by simonpj's avatar simonpj
Browse files

[project @ 2005-03-14 10:55:17 by simonpj]

Add a method decl to avoid gratuitous failure
parent ef1da473
......@@ -17,8 +17,7 @@ module Foo where
instance Data Item where
gfoldl k z (Leaf b v) = z (Leaf b) `k` v
gfoldl k z (Branch b v a1 a2) = z (\x -> Branch b x a1 a2) `k` v
--gunfoldl k z c = case constrIndex c of
-- 1 -> k z (Leaf undefined undefined)
gunfold _ _ _ = error "urk"
toConstr (Leaf _ _) = leafConstr
toConstr (Branch _ _ _ _) = branchConstr
dataTypeOf _ = itemDataType
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment