fix two small search things

Author: gbaz

Distribution/Server/Features/Search/ExtractDescriptionTerms.hs

@@ -16,14 +16,15 @@ import Data.Char
 import qualified NLP.Tokenize as NLP
 import qualified NLP.Snowball as NLP
 import qualified Data.Foldable as F
+import Data.List (intercalate)
 
 import qualified Documentation.Haddock.Markup as Haddock
 import Documentation.Haddock.Types
 
 import qualified Distribution.Server.Pages.Package.HaddockParse as Haddock (parse)
 
 extraStems :: [Text] -> Text -> [Text]
-extraStems ss x = x : mapMaybe (x `T.stripSuffix`) ss
+extraStems ss x = x : mapMaybe (`T.stripSuffix` x) ss
 
 extractSynopsisTerms :: [Text] -> Set Text -> String -> [Text]
 extractSynopsisTerms ss stopWords =
@@ -63,7 +64,7 @@ extractDescriptionTerms ss stopWords =
         [] --TODO: something here
         (  filter (not . ignoreTok)
          . NLP.tokenize
-         . concat . Haddock.markup termsMarkup)
+         . intercalate " " . Haddock.markup termsMarkup)
     . Haddock.parse
 
 termsMarkup :: DocMarkupH () String [String]