Update to Show OVal declaration for 2D and 3D objs.

Haskell-Things · Dec 4, 2012 · 5bc95d5 · 5bc95d5
1 parent 3258647
commit 5bc95d5
Showing 1 changed file with 2 additions and 0 deletions.
diff --git a/Graphics/Implicit/ExtOpenScad/Definitions.hs b/Graphics/Implicit/ExtOpenScad/Definitions.hs
@@ -65,6 +65,8 @@ instance Show OVal where
 	show (OFunc f) = "<function>"
 	show (OModule _) = "module"
 	show (OError msgs) = "Execution Error:\n" ++ foldl1 (\a b -> a ++ "\n" ++ b) msgs
+	show (OObj2 obj) = "<obj2: " ++ show obj ++ ">"
+	show (OObj3 obj) = "<obj3: " ++ show obj ++ ">"
 
 type VarLookup = Map String OVal
 type FStack = [OVal]