always vsep scheme lets, otherwise they are unreadable

lib/Quox/Syntax/Term/Pretty.idr

@@ -343,6 +343,7 @@ prettyTyCasePat : {opts : _} ->
                   (k : TyConKind) -> BContext (arity k) ->
                   Eff Pretty (Doc opts)
 prettyTyCasePat KTYPE [<] = typeD
+prettyTyCasePat KIOState [<] = ioStateD
 prettyTyCasePat KPi [< a, b] =
   parens . hsep =<< sequence [prettyTBind a, arrowD, prettyTBind b]
 prettyTyCasePat KSig [< a, b] =
@@ -351,6 +352,7 @@ prettyTyCasePat KEnum [<] = hl Syntax $ text "{}"
 prettyTyCasePat KEq [< a0, a1, a, l, r] =
   hsep <$> sequence (eqD :: map prettyTBind [a0, a1, a, l, r])
 prettyTyCasePat KNat [<] = natD
+prettyTyCasePat KString [<] = stringD
 prettyTyCasePat KBOX [< a] = bracks =<< prettyTBind a
 
 
@@ -392,6 +394,9 @@ prettyTerm dnames tnames (TYPE l _) =
       pure $ hcat [star, level]
     Ascii   => [|hl Syntax "Type" <++> hl Universe (text $ show l)|]
 
+prettyTerm dnames tnames (IOState _) =
+  ioStateD
+
 prettyTerm dnames tnames (Pi qty arg res _) =
   parensIfM Outer =<< do
     let MkSplitPi {binds, cod} = splitPi [< (qty, res.name, arg)] res.term
@@ -459,6 +464,9 @@ prettyTerm dnames tnames (Succ p _) = do
                        prettyTerm dnames tnames $ assert_smaller s s'
   either succ (hl Syntax . text . show . S) =<< toNat p
 
+prettyTerm dnames tnames (STRING _) = stringD
+prettyTerm dnames tnames (Str s _) = prettyStrLit s
+
 prettyTerm dnames tnames (BOX qty ty _) =
   bracks . hcat =<<
     sequence [prettyQty qty, dotD,