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 private
prettyDimEq' : {default Arg prec : PPrec} -> NContext d -> DimEq d -> Doc HL prettyDimEq' : {default Arg prec : PPrec} -> NContext d -> DimEq d -> Doc HL
prettyDimEq' ds eqs = case ds of prettyDimEq' [<] (C _) = "·"
[<] => "·" prettyDimEq' ds eqs =
_ => runPrettyWith False (toSnocList' ds) [<] $ withPrec prec $ prettyM eqs runPrettyWith False (toSnocList' ds) [<] $ withPrec prec $ prettyM eqs
private private
testPrettyD : NContext d -> DimEq d -> (str : String) -> testPrettyD : NContext d -> DimEq d -> (str : String) ->