aboutsummaryrefslogtreecommitdiff
path: root/compiler/src/Input.hs
diff options
context:
space:
mode:
Diffstat (limited to 'compiler/src/Input.hs')
-rw-r--r--compiler/src/Input.hs3
1 files changed, 1 insertions, 2 deletions
diff --git a/compiler/src/Input.hs b/compiler/src/Input.hs
index fa36d59..681f169 100644
--- a/compiler/src/Input.hs
+++ b/compiler/src/Input.hs
@@ -37,7 +37,6 @@ import Data.Aeson (FromJSON)
37import System.FilePath (isExtensionOf, dropExtension) 37import System.FilePath (isExtensionOf, dropExtension)
38 38
39import Files 39import Files
40import Utils
41 40
42 41
43data LoadException = LoadException String ParseException deriving Show 42data LoadException = LoadException String ParseException deriving Show
@@ -70,7 +69,7 @@ data Sidecar = Sidecar
70 69
71readInputTree :: AnchoredFSNode -> IO InputTree 70readInputTree :: AnchoredFSNode -> IO InputTree
72readInputTree (AnchoredFSNode anchor root@Dir{}) = 71readInputTree (AnchoredFSNode anchor root@Dir{}) =
73 filterDir (neg isHidden) root & mkDirNode 72 filterDir (not . isHidden) root & mkDirNode
74 where 73 where
75 mkInputNode :: FSNode -> IO (Maybe InputTree) 74 mkInputNode :: FSNode -> IO (Maybe InputTree)
76 mkInputNode (File path@(filename:pathto)) | ".yaml" `isExtensionOf` filename = 75 mkInputNode (File path@(filename:pathto)) | ".yaml" `isExtensionOf` filename =