remove universe type

lib/Quox/Syntax/Term/Pretty.idr

@@ -32,6 +32,16 @@ ofD     = hl Syntax "of"
 returnD = hl Syntax "return"
 
 
+export
+prettyUnivSuffix : Pretty.HasEnv m => Universe -> m (Doc HL)
+prettyUnivSuffix l =
+  ifUnicode (pretty $ pack $ map sub $ unpack $ show l) (pretty l)
+ where
+  sub : Char -> Char
+  sub c = case c of
+    '0' => '₀'; '1' => '₁'; '2' => '₂'; '3' => '₃'; '4' => '₄'
+    '5' => '₅'; '6' => '₆'; '7' => '₇'; '8' => '₈'; '9' => '₉'; _ => c
+
 export
 prettyBindType : PrettyHL a => PrettyHL b => PrettyHL q =>
                  Pretty.HasEnv m =>