always vsep scheme lets, otherwise they are unreadable

lib/Quox/Syntax/Term/TyConKind.idr

@@ -9,7 +9,8 @@ import Generics.Derive
 
 
 public export
-data TyConKind = KTYPE | KPi | KSig | KEnum | KEq | KNat | KBOX
+data TyConKind =
+  KTYPE | KIOState | KPi | KSig | KEnum | KEq | KNat | KString | KBOX
 %name TyConKind k
 %runElab derive "TyConKind" [Eq.Eq, Ord.Ord, Show.Show, Generic, Meta, DecEq]
 
@@ -25,10 +26,12 @@ allKinds = %runElab do
 ||| in `type-case`, how many variables are bound in this branch
 public export %inline
 arity : TyConKind -> Nat
-arity KTYPE = 0
-arity KPi   = 2
-arity KSig  = 2
-arity KEnum = 0
-arity KEq   = 5
-arity KNat  = 0
-arity KBOX  = 1
+arity KTYPE    = 0
+arity KIOState = 0
+arity KPi      = 2
+arity KSig     = 2
+arity KEnum    = 0
+arity KEq      = 5
+arity KNat     = 0
+arity KString  = 0
+arity KBOX     = 1