{-# LANGUAGE DataKinds #-} {-# LANGUAGE FlexibleContexts #-} {-# LANGUAGE MagicHash #-} {-# LANGUAGE TypeOperators #-} {-# LANGUAGE TypeFamilies #-} module CLaSH.Prelude.BitIndex where import GHC.TypeLits (KnownNat, type (+), type (-))