-- | This module provides the mkTsProps function for creating TensortProps. module Data.Tensort.Utils.MkTsProps (mkTsProps) where import Data.Tensort.Utils.Types (SortAlg, TensortProps (..)) -- | Wraps in integer Bytesize and a SubAlgorithm together as TensortProps. mkTsProps :: Int -> SortAlg -> TensortProps mkTsProps :: Int -> SortAlg -> TensortProps mkTsProps Int bSize SortAlg subAlg = TensortProps {bytesize :: Int bytesize = Int bSize, subAlgorithm :: SortAlg subAlgorithm = SortAlg subAlg}