1 files changed, 15 insertions, 14 deletions

diff --git a/Spear/Math/Plane.hs b/Spear/Math/Plane.hs
index 0f5829b..8772a42 100644
--- a/Spear/Math/Plane.hs
+++ b/Spear/Math/Plane.hs
@@ -1,8 +1,8 @@
 module Spear.Math.Plane
 (
-        Plane
-,       plane
-,       classify
+    Plane
+,   plane
+,   classify
 )
 where
 
@@ -13,21 +13,22 @@ import Spear.Math.Vector3 as Vector
 data PointPlanePos = Front | Back | Contained deriving (Eq, Ord, Show)
 
 
-data Plane = Plane {
-        n :: !Vector3,
-        d :: !Float
-} deriving(Eq, Show)
+data Plane = Plane
+    { n :: {-# UNPACK #-} !Vector3,
+      d :: {-# UNPACK #-} !Float
+    }
+    deriving(Eq, Show)
 
 
 -- | Create a plane given a normal vector and a distance from the origin.
 plane :: Vector3 -> Float -> Plane
 plane n d = Plane (normalise n) d
-                
-                
+
+
 -- | Classify the given point's relative position with respect to the given plane.
 classify :: Plane -> Vector3 -> PointPlanePos
-classify (Plane n d) pt = case (n `dot` pt - d) `compare` 0 of
-        GT -> Front
-        LT -> Back
-        EQ -> Contained
-        
\ No newline at end of file
+classify (Plane n d) pt =
+    case (n `dot` pt - d) `compare` 0 of
+        GT -> Front
+        LT -> Back
+        EQ -> Contained