unisonweb/unison
1
0
Fork 0
mirror of https://github.com/unisonweb/unison.git synced 2024-11-15 14:35:01 +03:00
Code Issues Projects Releases Wiki Activity

fixed UI glitch in displaying of explorer completions

Browse Source
This commit is contained in:
Paul Chiusano 2015-02-26 17:31:55 -05:00
parent 5322e1d670
commit 4bebb003bb
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
editor/src/Unison/Explorer.elm
View File

@ -76,7 +76,7 @@ view origin searchbox model = case model of
statusColor = Styles.statusColor ok
fld = Field.field (Styles.autocomplete ok) searchbox s.prompt s.input
completions =
let fit e = E.width (E.widthOf s.above - 12 `max` E.widthOf e) e
let fit e = E.width ((E.widthOf s.above - 12) `max` E.widthOf e) e
in List.indexedMap (\i e -> Layout.embed (Result.Ok i) (fit e)) s.completions
inside = Result.Err Inside
bottom = Styles.explorerOutline statusColor <|