Commit 86ad536b authored by James Laver's avatar James Laver

apparently that revert didn't work perfectly

parent 68453349
...@@ -77,7 +77,7 @@ maybeShowMenu setMenu ngrams event = do ...@@ -77,7 +77,7 @@ maybeShowMenu setMenu ngrams event = do
s <- Sel.getSelection s <- Sel.getSelection
case s of case s of
Just sel -> do Just sel -> do
case Sel.toString sel of case Sel.selectionToString sel of
"" -> pure unit "" -> pure unit
sel' -> do sel' -> do
let x = E.clientX event let x = E.clientX event
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment