From a8cdc6eba4ba496bec816dcb7f3c2c0f5114f4c8 Mon Sep 17 00:00:00 2001
From: pacien
Date: Fri, 27 Dec 2019 15:35:42 +0100
Subject: compiler: enable parallelisation

---
 compiler/src/Resource.hs | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'compiler/src/Resource.hs')

diff --git a/compiler/src/Resource.hs b/compiler/src/Resource.hs
index a8be913..c3ed959 100644
--- a/compiler/src/Resource.hs
+++ b/compiler/src/Resource.hs
@@ -32,6 +32,7 @@ module Resource
   ) where
 
 
+import Control.Concurrent.ParallelIO.Global (parallel)
 import Data.Function ((&))
 import Data.List ((\\), subsequences, sortBy)
 import Data.Ord (comparing)
@@ -76,7 +77,7 @@ buildResourceTree processDir processItem processThumbnail = resNode
       do
         processedDir <- processDir path
         processedThumbnail <- maybeThumbnail thumbnailPath
-        dirItems <- mapM resNode items
+        dirItems <- parallel $ map resNode items
         return DirResource
           { items = dirItems
           , resPath = processedDir
-- 
cgit v1.2.3