add main to example-haskell/SomeModule.hs

sorki · sorki · commit 561a070f0587 · 2020-12-17T17:38:33.000+01:00
diff --git a/example-haskell/SomeModule.hs b/example-haskell/SomeModule.hs
@@ -16,3 +16,6 @@ obj = union $ [
   , translate (V3 25 0 0) (cylinder2 10 4 10)
   , translate (V3 (-25) 0 0) obj'
   ]
+
+main :: IO ()
+main = writeSTL res "example.stl" obj

Original file line number	Diff line number	Diff line change
`@@ -16,3 +16,6 @@ obj = union $ [`
`16`	`16`	`, translate (V3 25 0 0) (cylinder2 10 4 10)`
`17`	`17`	`, translate (V3 (-25) 0 0) obj'`
`18`	`18`	`]`
	`19`	`+`
	`20`	`+main :: IO ()`
	`21`	`+main = writeSTL res "example.stl" obj`