dce

src/Lib/Types.idr

@@ -41,6 +41,17 @@ Show BD where
   show Bound = "bnd"
   show Defined = "def"
 
+
+-- do we just admit string names for these and let the prim functions
+-- sort it out?
+-- I'd like Int / String to have syntax
+
+data PrimType = StringType | IntType
+
+data PrimVal : Type where
+  PrimString : String -> PrimVal
+  PrimInt : Int -> PrimVal
+
 public export
 data Tm : Type