parser

lib/Quox/Syntax/Term/Base.idr

@@ -96,7 +96,7 @@ mutual
     ||| pair destruction
     |||
     ||| `CasePair 𝜋 𝑒 ([𝑟], 𝐴) ([𝑥, 𝑦], 𝑡)` is
-    ||| `𝐜𝐚𝐬𝐞 𝜋 · 𝑒 𝐫𝐞𝐭𝐮𝐫𝐧 𝑟 ⇒ 𝐴 𝐨𝐟 { (𝑥, 𝑦). 𝑡 }`
+    ||| `𝐜𝐚𝐬𝐞 𝜋 · 𝑒 𝐫𝐞𝐭𝐮𝐫𝐧 𝑟 ⇒ 𝐴 𝐨𝐟 { (𝑥, 𝑦) ⇒ 𝑡 }`
     CasePair : (qty : q) -> (pair : Elim q d n) ->
                (ret : ScopeTerm q d n) ->
                (body : ScopeTermN 2 q d n) ->

lib/Quox/Syntax/Term/Pretty.idr

@@ -11,10 +11,11 @@ import Data.Vect
 
 
 private %inline
-typeD, arrowD, timesD, lamD, eqndD, dlamD, annD :
+typeD, arrowD, darrowD, timesD, lamD, eqndD, dlamD, annD :
   Pretty.HasEnv m => m (Doc HL)
 typeD   = hlF Syntax $ ifUnicode "★" "Type"
 arrowD  = hlF Syntax $ ifUnicode "→" "->"
+darrowD = hlF Syntax $ ifUnicode "⇒" "=>"
 timesD  = hlF Syntax $ ifUnicode "×" "**"
 lamD    = hlF Syntax $ ifUnicode "λ" "fun"
 eqndD   = hlF Syntax $ ifUnicode "≡" "=="
@@ -22,11 +23,10 @@ dlamD   = hlF Syntax $ ifUnicode "δ" "dfun"
 annD    = hlF Syntax $ ifUnicode "∷" "::"
 
 private %inline
-eqD, colonD, commaD, dotD, caseD, returnD, ofD : Doc HL
+eqD, colonD, commaD, caseD, returnD, ofD : Doc HL
 eqD     = hl Syntax "Eq"
 colonD  = hl Syntax ":"
 commaD  = hl Syntax ","
-dotD    = hl Delim  "."
 caseD   = hl Syntax "case"
 ofD     = hl Syntax "of"
 returnD = hl Syntax "return"
@@ -48,7 +48,7 @@ prettyArm : PrettyHL a => Pretty.HasEnv m =>
             BinderSort -> List BaseName -> Doc HL -> a -> m (Doc HL)
 prettyArm sort xs pat body = do
   body <- withPrec Outer $ unders sort xs $ prettyM body
-  pure $ hang 2 $ sep [pat <+> dotD, body]
+  pure $ hang 2 $ sep [pat <++> !darrowD, body]
 
 export
 prettyLams : PrettyHL a => Pretty.HasEnv m =>
@@ -96,7 +96,7 @@ prettyCase pi elim r ret arms = do
 -- [fixme] put delimiters around tags that aren't simple names
 export
 prettyTag : TagVal -> Doc HL
-prettyTag t = hl Tag $ "`" <+> fromString t
+prettyTag t = hl Tag $ "'" <+> fromString t
 
 
 parameters (showSubsts : Bool)
@@ -117,7 +117,7 @@ parameters (showSubsts : Bool)
       let GotPairs {init, last, _} = getPairs' [< s] t in
       prettyTuple $ toList $ init :< last
     prettyM (Enum tags) =
-      pure $ delims "`{" "}" . aseparate comma $ map prettyTag $
+      pure $ delims "{" "}" . aseparate comma $ map prettyTag $
         Prelude.toList tags
     prettyM (Tag t) =
       pure $ prettyTag t