compiler: refactor path handling

1 files changed, 2 insertions, 2 deletions

diff --git a/compiler/src/Resource.hs b/compiler/src/Resource.hs
index 9d60185..afc8203 100644
--- a/compiler/src/Resource.hs
+++ b/compiler/src/Resource.hs
@@ -100,7 +100,7 @@ outputDiff resources ref =
     resPaths resList = map resPath resList ++ thumbnailPaths resList
 
     thumbnailPaths :: [ResourceTree] -> [Path]
-    thumbnailPaths = (concatMap subsequences) . (mapMaybe thumbnailPath)
+    thumbnailPaths = (concatMap subPaths) . (mapMaybe thumbnailPath)
 
     fsPaths :: FSNode -> [Path]
     fsPaths = map nodePath . tail . flattenDir
@@ -109,6 +109,6 @@ cleanupResourceDir :: ResourceTree -> FileName -> IO ()
 cleanupResourceDir resourceTree outputDir =
   readDirectory outputDir
   >>= return . outputDiff resourceTree . root
-  >>= return . sortBy (flip $ comparing length) -- nested files before dirs
+  >>= return . sortBy (flip $ comparing pathLength) -- nested files before dirs
   >>= return . map (localPath . (/>) outputDir)
   >>= mapM_ remove