diff options
Diffstat (limited to 'compiler/src/Resource.hs')
-rw-r--r-- | compiler/src/Resource.hs | 3 |
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 | |||
32 | ) where | 32 | ) where |
33 | 33 | ||
34 | 34 | ||
35 | import Control.Concurrent.ParallelIO.Global (parallel) | ||
35 | import Data.Function ((&)) | 36 | import Data.Function ((&)) |
36 | import Data.List ((\\), subsequences, sortBy) | 37 | import Data.List ((\\), subsequences, sortBy) |
37 | import Data.Ord (comparing) | 38 | import Data.Ord (comparing) |
@@ -76,7 +77,7 @@ buildResourceTree processDir processItem processThumbnail = resNode | |||
76 | do | 77 | do |
77 | processedDir <- processDir path | 78 | processedDir <- processDir path |
78 | processedThumbnail <- maybeThumbnail thumbnailPath | 79 | processedThumbnail <- maybeThumbnail thumbnailPath |
79 | dirItems <- mapM resNode items | 80 | dirItems <- parallel $ map resNode items |
80 | return DirResource | 81 | return DirResource |
81 | { items = dirItems | 82 | { items = dirItems |
82 | , resPath = processedDir | 83 | , resPath = processedDir |