github/semantic
1
1
Fork 0
mirror of https://github.com/github/semantic.git synced 2024-12-19 21:01:35 +03:00
Code Issues Projects Releases Wiki Activity

Maintain space for "from" when term node is not an Indexed node

Browse Source
This commit is contained in:
Rick Winfrey 2016-10-17 11:29:49 -05:00
parent 36eb60d05d
commit 69492f39e4
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/DiffSummary.hs
View File

@ -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