NoSlow-0.1: NoSlow/Micro/Vector/Storable/Double.hs

{-# LANGUAGE TemplateHaskell #-}
module NoSlow.Micro.Vector.Storable.Double
where

import qualified NoSlow.Backend.Vector.Storable as Impl
import qualified NoSlow.Micro.Kernels as K
import NoSlow.Backend.TH

import Language.Haskell.TH

$(specialise (Spec {
                specModule = "Impl"
              , specContext = \_ _ -> []
              , specVars    = [("v", ConT ''Impl.Vector),
                               ("a", ConT ''Double)]
              })
  K.kernels)