dimeq test printing fix

This commit is contained in:
rhiannon morris 2023-03-26 14:45:32 +02:00
parent 7e3a8e72bd
commit 8402da6d5e

View file

@ -16,9 +16,9 @@ import Data.So
private
prettyDimEq' : {default Arg prec : PPrec} -> NContext d -> DimEq d -> Doc HL
prettyDimEq' ds eqs = case ds of
[<] => "·"
_ => runPrettyWith False (toSnocList' ds) [<] $ withPrec prec $ prettyM eqs
prettyDimEq' [<] (C _) = "·"
prettyDimEq' ds eqs =
runPrettyWith False (toSnocList' ds) [<] $ withPrec prec $ prettyM eqs
private
testPrettyD : NContext d -> DimEq d -> (str : String) ->