Commit 11b6abfb authored by simonmar's avatar simonmar
Browse files

[project @ 2000-10-26 10:27:32 by simonmar]

Fix up
parent 38945d67
......@@ -59,7 +59,7 @@ instance Outputable Unlinked where
ppr (DotO path) = text "DotO" <+> text path
ppr (DotA path) = text "DotA" <+> text path
ppr (DotDLL path) = text "DotDLL" <+> text path
ppr (Trees binds) = text "Trees" <+> ppr (map binder binds)
ppr (Trees binds _) = text "Trees" <+> ppr (map binder binds)
isObject (DotO _) = True
......@@ -67,7 +67,7 @@ isObject (DotA _) = True
isObject (DotDLL _) = True
isObject _ = False
isInterpretable (Trees _) = True
isInterpretable (Trees _ _) = True
isInterpretable _ = False
data Linkable
......
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