1 files changed, 3 insertions, 4 deletions

diff --git a/shelves.hs b/shelves.hs
index cf935a0..b59bccf 100644
--- a/shelves.hs
+++ b/shelves.hs
@@ -1,6 +1,6 @@
 import           Graphics.OpenSCAD
 import           Linear.V3
-import           OpenSCAD.Carpentry
+import           Carpentry
 import           System.Process
 
 -- the minimum paramaters to describe a shelf; the width and depth of a shelf,
@@ -14,9 +14,8 @@ data Shelf = Shelf {
 } deriving (Show)
 
 myShelf :: Shelf
-myShelf = Shelf { width = 12*4, depth = 12, boardThickness = 1,
-                  shelfHeights = [15, 8, 8, 8] }
-
+myShelf = Shelf { width = 12*80000, depth = 48, boardThickness = 1,
+                  shelfHeights = [36, 36, 36]  }
 
 calcShelfHeights :: Shelf -> [Double]
 calcShelfHeights s = scanl (+) 0 [h + (boardThickness s)|h <- (shelfHeights s)]