shithub: MicroHs

ref: 65a2249a1ba81f0448c0e9f02e9d65d176b88cfd
dir: /lib/Data/TypeLits.hs/

View raw version 
module Data.TypeLits(
  Symbol,
  Nat,
  KnownNat(..),
  KnownSymbol(..),
  ) where
import Prelude()
import Primitives
import Data.Char_Type
import Data.Integer

class KnownNat (n :: Nat) where
  natVal :: forall (proxy :: Nat -> Type) . proxy n -> Integer

class KnownSymbol (s :: Symbol) where
  symbolVal :: forall (proxy :: Symbol -> Type) . proxy s -> String