Formatting

Haskell-Things · Dec 31, 2023 · 0e4606b · 0e4606b
1 parent e2408d8
commit 0e4606b
Show file tree

Hide file tree

Showing 3 changed files with 8 additions and 4 deletions.
diff --git a/Graphics/Implicit/Canon.hs b/Graphics/Implicit/Canon.hs
@@ -90,7 +90,9 @@ import Graphics.Implicit.Definitions
       , RotateExtrude
       , Shared3
       , Sphere
-      , Transform3, BoxFrame, Link
+      , Transform3
+      , BoxFrame
+      , Link
       )
   , hasZeroComponent
   )

diff --git a/Graphics/Implicit/Primitives.hs b/Graphics/Implicit/Primitives.hs
@@ -50,9 +50,10 @@ module Graphics.Implicit.Primitives (
                                      emptySpace,
                                      fullSpace,
                                      withRounding,
+                                     boxFrame,
                                      _Shared,
                                      pattern Shared,
-                                     Object(Space, canonicalize), boxFrame) where
+                                     Object(Space, canonicalize)) where
 
 import Prelude(Applicative, Eq, Foldable, Num, abs, (<), otherwise, Num, (+), (-), (*), (/), (.), negate, Bool(True, False), Maybe(Just, Nothing), Either, fmap, ($), (**), sqrt, (<=), (&&), max, Ord)
 
@@ -92,7 +93,8 @@ import Graphics.Implicit.Definitions (ObjectContext, ℝ, ℝ2, ℝ3, Box2,
                                                    ExtrudeM,
                                                    RotateExtrude,
                                                    ExtrudeOnEdgeOf,
-                                                   Shared3, Link
+                                                   Shared3,
+                                                   Link
                                                   ),
                                       ExtrudeMScale,
                                       defaultObjectContext

diff --git a/tests/GoldenSpec/Spec.hs b/tests/GoldenSpec/Spec.hs
@@ -172,7 +172,7 @@ spec = describe "golden tests" $ do
       , ellipsoid 10 15 20
       , translate (V3 0 0 25) $ cone 20 20
       ]
-  
+
   golden "boxFrame" 2 $
     union
       [ boxFrame (V3 20 20 20) 2