From 30683d96778e70b3d5db6a1289df4ad75ac0a39a Mon Sep 17 00:00:00 2001 From: Andrew Cady Date: Wed, 13 Mar 2019 01:25:56 -0400 Subject: type signatures --- GenSCAD.hs | 2 ++ 1 file changed, 2 insertions(+) diff --git a/GenSCAD.hs b/GenSCAD.hs index e5e99ab..548792f 100644 --- a/GenSCAD.hs +++ b/GenSCAD.hs @@ -18,11 +18,13 @@ import System.IO.Temp import System.Process +v3tolist :: V3 a -> [a] v3tolist (V3 a b c) = [a,b,c] _V32l :: R3 c1 => c1 c -> [c] _V32l = view (_xyz . to v3tolist) +_V32s :: Show a => [a] -> [Char] _V32s c = intercalate "," (map show c) -- placecube: OpenSCAD translate cube described by d to place designated by p -- cgit v1.2.3