Commit c2224a0a authored by Simon Marlow's avatar Simon Marlow
Browse files

add default cases

parent 0f9c1806
...@@ -1077,8 +1077,10 @@ isInterpretable = not . isObject ...@@ -1077,8 +1077,10 @@ isInterpretable = not . isObject
nameOfObject (DotO fn) = fn nameOfObject (DotO fn) = fn
nameOfObject (DotA fn) = fn nameOfObject (DotA fn) = fn
nameOfObject (DotDLL fn) = fn nameOfObject (DotDLL fn) = fn
nameOfObject other = pprPanic "nameOfObject" (ppr other)
byteCodeOfObject (BCOs bc) = bc byteCodeOfObject (BCOs bc) = bc
byteCodeOfObject other = pprPanic "byteCodeOfObject" (ppr other)
\end{code} \end{code}
......
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