unisonweb/unison
1
0
Fork 0
mirror of https://github.com/unisonweb/unison.git synced 2024-10-04 21:57:25 +03:00
Code Issues Projects Releases Wiki Activity

bugfix: term printer put too many use statements

Browse Source
This commit is contained in:
Mitchell Rosen 2024-02-02 11:43:00 -05:00
parent cf15f30261
commit 3f3860fba3
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
parser-typechecker/src/Unison/Syntax/TermPrinter.hs
View File

@ -1389,7 +1389,7 @@ calcImports im tm = (im', render $ getUses result)
|> filter
( \s ->
let (p, i) = lookupOrDie s m
in (i > 1 || isRight (Name.parseTextEither s)) && not (null p)
in (i > 1 || either (const False) Name.isSymboly (Name.parseTextEither s)) && not (null p)
)
|> map (\s -> (s, lookupOrDie s m))
|> Map.fromList