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
|
||||
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) ->
|
||||
|
|
Loading…
Reference in a new issue