From 67103ea731f7526067e55eddc5f44b0fc19a5941 Mon Sep 17 00:00:00 2001 From: Timothy Clem Date: Fri, 23 Sep 2016 10:24:47 -0700 Subject: [PATCH] Remove determiner and category name for these boolean statements --- src/DiffSummary.hs | 2 ++ 1 file changed, 2 insertions(+) diff --git a/src/DiffSummary.hs b/src/DiffSummary.hs index 39f8ce075..a3dbbec2f 100644 --- a/src/DiffSummary.hs +++ b/src/DiffSummary.hs @@ -102,11 +102,13 @@ prefixWithPatch patch = prefixWithThe (patchToPrefix patch) -- Optional determiner (e.g. "the") to tie together summary statements. determiner :: DiffInfo -> Doc determiner (LeafInfo "number" _) = "" +determiner (LeafInfo "boolean" _) = "" determiner (BranchInfo bs _ _) = determiner (last bs) determiner _ = "the" toLeafInfos :: DiffInfo -> [Doc] toLeafInfos (LeafInfo "number" termName) = pure (squotes (toDoc termName)) +toLeafInfos (LeafInfo "boolean" termName) = pure (squotes (toDoc termName)) toLeafInfos LeafInfo{..} = pure (squotes (toDoc termName) <+> toDoc categoryName) toLeafInfos BranchInfo{..} = toLeafInfos =<< branches toLeafInfos err@ErrorInfo{} = pure (pretty err)