From 6b3da07384004751bc64ef88429f452dfe1cee45 Mon Sep 17 00:00:00 2001 From: Matthijs Kooijman Date: Thu, 19 Feb 2009 14:17:09 +0100 Subject: [PATCH] Print the Defs list sorted. --- Pretty.hs | 13 ++++++++++++- 1 file changed, 12 insertions(+), 1 deletion(-) diff --git a/Pretty.hs b/Pretty.hs index 679d7ae..cb1f9fc 100644 --- a/Pretty.hs +++ b/Pretty.hs @@ -1,6 +1,9 @@ module Pretty (prettyShow) where import qualified Data.Map as Map +import qualified Data.Foldable as Foldable +import qualified List + import qualified Var import qualified CoreSyn import qualified TypeRep @@ -43,10 +46,18 @@ instance Pretty FlatFunction where pPrint (FlatFunction args res defs sigs) = (text "Args: ") $$ nest 10 (pPrint args) $+$ (text "Result: ") $$ nest 10 (pPrint res) - $+$ (text "Defs: ") $$ nest 10 (pPrint defs) + $+$ (text "Defs: ") $$ nest 10 (ppdefs defs) $+$ text "Signals: " $$ nest 10 (printList ppsig sigs) where ppsig (id, info) = pPrint id <> pPrint info + ppdefs defs = vcat (map pPrint sorted) + where + -- Roughly sort the entries (inaccurate for Fapps) + sorted = List.sortBy (\a b -> compare (sigDefDst a) (sigDefDst b)) defs + sigDefDst (FApp _ _ dst) = head $ Foldable.toList dst + sigDefDst (CondDef _ _ _ dst) = dst + sigDefDst (UncondDef _ dst) = dst + instance Pretty SigDef where pPrint (FApp func args res) = -- 2.30.2