Commits

Jacob Hinkle committed 0a33c5d

fix new hlint warning

Comments (0)

Files changed (1)

src/DiffGeom/Spaces/Rotations.hs

 
 import Data.Monoid
 
+import Control.Applicative ((<$>))
+
 {- |This module provides a representation of 3D rotations, modeled by the
 Lie group SO(3).  Internally, we use the unit quaternion representation.
 The associated Lie algebra is the space so(3) of skew-symmetric matrices,
 function:
 -}
 fromQuatern :: Quatern -> Maybe Rot3
-fromQuatern q = fmap Rot3 $ normalize q
+fromQuatern q = Rot3 <$> normalize q
 
 -- |Now we just start inheriting instances in a pretty rote manner.
 instance TolSpace Rot3 where