diff --git a/src/DiffSummary.hs b/src/DiffSummary.hs index dfaa5119d..89b5e2af8 100644 --- a/src/DiffSummary.hs +++ b/src/DiffSummary.hs @@ -221,7 +221,7 @@ toTermName source term = case unwrap term of S.Import identifier [] -> toTermName' identifier S.Import identifier exprs'@(expr:exprs)-> case unwrap expr of S.Indexed _ -> intercalate ", " (termNameFromSource <$> exprs) <> "from " <> toTermName' identifier - _ -> intercalate ", " (termNameFromSource <$> exprs') <> "from " <> toTermName' identifier + _ -> 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