Constants.hs

module Constants where

import CLaSH.Prelude

type MyValue = SFixed 5 13
type MyValues = Vec 2 MyValue

coefficients :: [MyValue]
coefficients = [0.5, 0.25]

Filter.hs

module Filter where

import CLaSH.Prelude

import Constants

fir :: MyValues -> MyValues -> MyValue
fir coeffs xs = dotp coeffs xs
  where
    dotp as bs = sum (zipWith (*) as bs)

topEntity xs = fir hs xs
  where
    hs = $(listToVecTH coefficients)