Add parallelism

src/API.hs

@@ -32,6 +32,7 @@ import           Servant.API
 import           Servant.API.Generic
 import           Servant.HTML.Lucid
 import           Servant.Server.Generic
+import Control.Parallel.Strategies
 
 import           Data.Caesar
 import           Data.Language
@@ -78,7 +79,8 @@ handler =
     _index = do
       languageModel <- asks getModel
       sentences <- map message . bullshits <$> getBullshits
-      let (bullshit, noBullshit) = partitionEithers (map (findBest languageModel) sentences)
+      let (bullshit, noBullshit) = partitionEithers best
+          best = map (findBest languageModel) sentences `using` parBuffer 10 rdeepseq
       return $ Index noBullshit bullshit
   }
   where