compiler: exclude dir thumbnails from items

1 files changed, 5 insertions, 4 deletions

diff --git a/compiler/src/Input.hs b/compiler/src/Input.hs
index 02f79f0..86d3ec8 100644
--- a/compiler/src/Input.hs
+++ b/compiler/src/Input.hs
@@ -88,10 +88,11 @@ readInputTree (AnchoredFSNode _ File{}) =
 readInputTree (AnchoredFSNode anchor root@Dir{}) = mkDirNode root
   where
     mkInputNode :: FSNode -> IO (Maybe InputTree)
-    mkInputNode file@File{path} | not $ isSidecar file =
-      readSidecarFile (localPath $ anchor /> path <.> sidecarExt)
-      >>= return . InputFile path
-      >>= return . Just
+    mkInputNode file@File{path}
+      | (not $ isSidecar file) && (not $ isThumbnail file) =
+        readSidecarFile (localPath $ anchor /> path <.> sidecarExt)
+        >>= return . InputFile path
+        >>= return . Just
     mkInputNode File{} = return Nothing
     mkInputNode dir@Dir{} = mkDirNode dir >>= return . Just