Cleanup

src/Quaternion.hs

@@ -60,9 +60,7 @@ qToAng = argV . qToV2
 qID :: Q.Quaternion Float
 qID = Q.axisAngle (V3 1 0 0) 0
 
-comp :: (Point3, Q.Quaternion Float)
-    -> (Point3, Q.Quaternion Float)
-    -> (Point3, Q.Quaternion Float)
+comp :: Point3Q -> Point3Q -> Point3Q
 comp (p,q) (p1,q1) = (p + Q.rotate q p1, q * q1)
 
 --deriving instance (Flat a => Flat (Quaternion a))