github/semantic
1
1
Fork 0
mirror of https://github.com/github/semantic.git synced 2024-12-18 20:31:55 +03:00
Code Issues Projects Releases Wiki Activity

Remove warnings

Browse Source
This commit is contained in:
Rick Winfrey 2016-10-17 18:47:49 -05:00
parent c05a3a961e
commit bad1ae2d78
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

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