switch to universum prelude

also don't keep adjusted maps around if not necessary

1 files changed, 3 insertions, 2 deletions

diff --git a/server/Worker.hs b/server/Worker.hs
index 91fa8e2..af07904 100644
--- a/server/Worker.hs
+++ b/server/Worker.hs
@@ -9,7 +9,8 @@ module Worker (linterThread, Job(..)) where
 
 import           Universum
 
-import           CheckDir                      (recursiveCheckDir)
+import           CheckDir                      (recursiveCheckDir,
+                                                shrinkDirResult)
 import           Control.Concurrent.Async      (async, link)
 import           Control.Concurrent.STM.TQueue
 import           Control.Exception             (IOException, handle)
@@ -66,7 +67,7 @@ runJob config Job {..} done = do
       callgit gitdir [ "worktree", "add", "--force", workdir, toString ref ]
 
       res <- recursiveCheckDir (orgLintconfig jobOrg) workdir (orgEntrypoint jobOrg)
-               >>= evaluateNF
+               >>= evaluateNF . shrinkDirResult
       setJobStatus done jobOrg jobRef $
         Linted res rev