compiler: enable parallelisation

1 files changed, 2 insertions, 1 deletions

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