Skip to content

Instantly share code, notes, and snippets.

View walseb's full-sized avatar

Sebastian Wålinder walseb

View GitHub Profile
@walseb
walseb / VectorSpace-Linear.hs
Created April 26, 2020 19:59
VectorSpace implemented using linear
{-# 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.^/)