From bad1ae2d7827749b32e6875791f3cc8a314f17b6 Mon Sep 17 00:00:00 2001 From: Rick Winfrey Date: Mon, 17 Oct 2016 18:47:49 -0500 Subject: [PATCH] Remove warnings --- src/DiffSummary.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/DiffSummary.hs b/src/DiffSummary.hs index ec9e0e38c..4225fbb39 100644 --- a/src/DiffSummary.hs +++ b/src/DiffSummary.hs @@ -223,7 +223,7 @@ toTermName source term = case unwrap term of S.Import identifier [expr] -> case unwrap expr of S.Indexed [expr'] -> intercalate ", " [(termNameFromSource expr')] <> " from " <> toTermName' identifier _ -> intercalate ", " [(termNameFromSource expr)] <> " from " <> toTermName' identifier - S.Import identifier exprs'@(expr:exprs) -> intercalate ", " (termNameFromSource <$> exprs') <> " from " <> toTermName' identifier + S.Import identifier exprs'@(_:_) -> intercalate ", " (termNameFromSource <$> exprs') <> " from " <> toTermName' identifier S.Export Nothing expr -> "{ " <> intercalate ", " (termNameFromSource <$> expr) <> " }" S.Export (Just identifier) [] -> "{ " <> toTermName' identifier <> " }" S.Export (Just identifier) expr -> "{ " <> intercalate ", " (termNameFromSource <$> expr) <> " }" <> " from " <> toTermName' identifier