VectorSpace implemented using linear

VectorSpace-Linear.hs

{-# LANGUAGE FlexibleInstances #-}
{-# LANGUAGE MultiParamTypeClasses #-}

import FRP.Yampa
import Linear    as L

instance (Eq a, Floating a) => VectorSpace (V1 a) a where
  zeroVector = L.zero
  (*^) = (L.*^)
  (^/) = (L.^/)
  negateVector = L.negated
  (^+^) = (L.^+^)
  (^-^) = (L.^-^)
  dot = L.dot

instance (Eq a, Floating a) => VectorSpace (V2 a) a where
  zeroVector = L.zero
  (*^) = (L.*^)
  (^/) = (L.^/)
  negateVector = L.negated
  (^+^) = (L.^+^)
  (^-^) = (L.^-^)
  dot = L.dot
  
  -- You could keep going with V3, V4, etc but you get the idea