From 77ec844f6ce0d1b7129c04e5dd31d2383680db4b Mon Sep 17 00:00:00 2001
From: Andrew Cady <d@jerkface.net>
Date: Wed, 13 Mar 2019 01:58:39 -0400
Subject: stub out new shelf code

---
 shelves.hs | 19 +++++++++++++++----
 1 file 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
 
 
 
-- 
cgit v1.2.3