stub out new shelf code

1 files changed, 15 insertions, 4 deletions

diff --git a/shelves.hs b/shelves.hs
index 8182e99..0484ff5 100644
--- a/shelves.hs
+++ b/shelves.hs
@@ -1,8 +1,19 @@
 import           Control.Lens
-import           Data.List
-import           GenSCAD      (genscad)
+import           GenSCAD           (genscad)
+import           Graphics.OpenSCAD
 import           Linear.V3
 
+data Shelf
+
+myShelf :: Shelf
+myShelf = undefined
+
+modelShelf :: Shelf -> Model3d
+modelShelf = undefined
+
+main :: IO ()
+main = draw $ modelShelf myShelf
+
 shelf_thickness :: Double
 shelf_thickness = 0.5
 shelf_width :: Double
@@ -52,8 +63,8 @@ scadshelf = genscad $ shelves ++ sides
 
 
 
-main :: IO ()
-main = do putStrLn scadshelf
+-- main :: IO ()
+-- main = do putStrLn scadshelf