compiler: enable parallelisation

2 files changed, 3 insertions, 1 deletions

diff --git a/compiler/package.yaml b/compiler/package.yaml
index 21677fb..90c4ea5 100644
--- a/compiler/package.yaml
+++ b/compiler/package.yaml
@@ -25,6 +25,7 @@ dependencies:
 - cmdargs
 - JuicyPixels
 - JuicyPixels-extra
+- parallel-io
 
 library:
   source-dirs: src
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