src/IHaskell/Eval/Hoogle.hs: fix :document

f17d0a0a · Vaibhav Sagar · 2df8df0e · f17d0a0a
Commit f17d0a0a authored Jun 24, 2019 by Vaibhav Sagar
Show whitespace changes
Inline Side-by-side

Showing with 1 addition and 3 deletions

Hoogle.hs src/IHaskell/Eval/Hoogle.hs +1 -3

No files found.
--- a/src/IHaskell/Eval/Hoogle.hs
+++ b/src/IHaskell/Eval/Hoogle.hs
@@ -119,9 +119,7 @@ document string = do

  where
    matches (SearchResult resp) =
-      case split " " $ self resp of
-        name:_ -> strip string == strip name
-        _      -> False
+      ("<s0>" ++ strip string ++ "</s0>") `elem` (split " " $ self resp)
    matches _ = False

    toDocResult (SearchResult resp) = Just $ DocResult resp