From ffd1c8173e981584d0b766c8b5881ed2d2be5393 Mon Sep 17 00:00:00 2001 From: Andrew Cady Date: Wed, 13 Mar 2019 01:26:05 -0400 Subject: stylish haskell --- GenSCAD.hs | 12 ++++++------ shelves.hs | 10 +++++----- 2 files changed, 11 insertions(+), 11 deletions(-) diff --git a/GenSCAD.hs b/GenSCAD.hs index 548792f..bbc1299 100644 --- a/GenSCAD.hs +++ b/GenSCAD.hs @@ -11,11 +11,11 @@ module GenSCAD , colorcubeat ) where -import Linear.V3 -import Control.Lens -import Data.List -import System.IO.Temp -import System.Process +import Control.Lens +import Data.List +import Linear.V3 +import System.IO.Temp +import System.Process v3tolist :: V3 a -> [a] @@ -45,7 +45,7 @@ colorcubeat rgb d pos = color rgb $ translate pos $ cube d --place [x] = "ERROR" place :: [String] -> String -place [d, p] = cubeat d p +place [d, p] = cubeat d p place [r, d, p] = colorcubeat r d p --place[o] = scad (fst o) (snd o) diff --git a/shelves.hs b/shelves.hs index e42fe7d..feeabfa 100644 --- a/shelves.hs +++ b/shelves.hs @@ -1,7 +1,7 @@ -import Linear.V3 -import Control.Lens -import Data.List -import GenSCAD (genscad) +import Control.Lens +import Data.List +import GenSCAD (genscad) +import Linear.V3 shelf_thickness :: Double shelf_thickness = 0.5 @@ -52,7 +52,7 @@ scadshelf :: String scadshelf = genscad $ shelves ++ sides --gen_shelf :: [Fractional] -> Fractional -> Fractional -> [Char] ---gen_shelf shelf_heights depth length = +--gen_shelf shelf_heights depth length = -- cgit v1.2.3