remove square brackets around type lines

(parens are needed if they are anything other than a `term arg`)

lib/Quox/Parser/Parser.idr

@@ -245,15 +245,6 @@ export
 term : FileName -> Grammar True PTerm
 -- defined after all the subterm parsers
 
-export
-typeLine : FileName -> Grammar True (PatVar, PTerm)
-typeLine fname = do
-  resC "["
-  mustWork $ do
-    i <- patVar fname <* resC "⇒" <|> unused fname
-    t <- assert_total term fname <* needRes "]"
-    pure (i, t)
-
 ||| box term `[t]` or type `[π.A]`
 export
 boxTerm : FileName -> Grammar True PTerm
@@ -287,6 +278,19 @@ termArg fname = withLoc fname $
   <|> [|V qname|]
   <|> const <$> tupleTerm fname
 
+export
+properTypeLine : FileName -> Grammar True (PatVar, PTerm)
+properTypeLine fname = do
+  resC "("
+  i <- patVar fname <* resC "⇒" <|> unused fname
+  t <- assert_total term fname <* needRes ")"
+  pure (i, t)
+
+export
+typeLine : FileName -> Grammar True (PatVar, PTerm)
+typeLine fname =
+  properTypeLine fname <|> [|(,) (unused fname) (termArg fname)|]
+
 ||| optionally, two dimension arguments. if absent default to `@0 @1`
 private
 optDirection : FileName -> Grammar False (PDim, PDim)

lib/Quox/Pretty.idr

@@ -148,6 +148,10 @@ export %inline
 braces : {opts : _} -> Doc opts -> Eff Pretty (Doc opts)
 braces = looseDelims "{" "}"
 
+export %inline
+tightBraces : {opts : _} -> Doc opts -> Eff Pretty (Doc opts)
+tightBraces = tightDelims "{" "}"
+
 export %inline
 parensIf : {opts : _} -> Bool -> Doc opts -> Eff Pretty (Doc opts)
 parensIf True  = parens

lib/Quox/Syntax/Term/Pretty.idr

@@ -136,9 +136,9 @@ prettyTypeLine : {opts : _} ->
                  DScopeTerm d n ->
                  Eff Pretty (Doc opts)
 prettyTypeLine dnames tnames (S _ (N body)) =
-  bracks =<< withPrec Outer (prettyTerm dnames tnames body)
+  withPrec Arg (prettyTerm dnames tnames body)
 prettyTypeLine dnames tnames (S [< i] (Y body)) =
-  bracks =<< do
+  parens =<< do
     i'  <- prettyDBind i
     ty' <- withPrec Outer $ prettyTerm (dnames :< i) tnames body
     pure $ sep [hsep [i', !darrowD], ty']
@@ -281,9 +281,9 @@ prettyTag tag = hl Tag $ text $ "'" ++ quoteTag tag
 export
 prettyEnum : {opts : _} -> List String -> Eff Pretty (Doc opts)
 prettyEnum cases =
-  tightDelims "{" "}" =<<
+  tightBraces =<<
   fillSeparateTight !commaD <$>
-  traverse (hl Tag . text . quoteTag) cases
+  traverse (hl Tag . Doc.text . quoteTag) cases
 
 private
 prettyCaseRet : {opts : _} ->