dimeq test printing fix
This commit is contained in:
parent
7e3a8e72bd
commit
8402da6d5e
1 changed files with 3 additions and 3 deletions
|
@ -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) ->
|
||||||
|
|
Loading…
Reference in a new issue