diff options
Diffstat (limited to 'compiler/src/Input.hs')
-rw-r--r-- | compiler/src/Input.hs | 9 |
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{}) = | |||
88 | readInputTree (AnchoredFSNode anchor root@Dir{}) = mkDirNode root | 88 | readInputTree (AnchoredFSNode anchor root@Dir{}) = mkDirNode root |
89 | where | 89 | where |
90 | mkInputNode :: FSNode -> IO (Maybe InputTree) | 90 | mkInputNode :: FSNode -> IO (Maybe InputTree) |
91 | mkInputNode file@File{path} | not $ isSidecar file = | 91 | mkInputNode file@File{path} |
92 | readSidecarFile (localPath $ anchor /> path <.> sidecarExt) | 92 | | (not $ isSidecar file) && (not $ isThumbnail file) = |
93 | >>= return . InputFile path | 93 | readSidecarFile (localPath $ anchor /> path <.> sidecarExt) |
94 | >>= return . Just | 94 | >>= return . InputFile path |
95 | >>= return . Just | ||
95 | mkInputNode File{} = return Nothing | 96 | mkInputNode File{} = return Nothing |
96 | mkInputNode dir@Dir{} = mkDirNode dir >>= return . Just | 97 | mkInputNode dir@Dir{} = mkDirNode dir >>= return . Just |
97 | 98 | ||