diff options
Diffstat (limited to 'compiler/src/Input.hs')
-rw-r--r-- | compiler/src/Input.hs | 3 |
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) | |||
37 | import System.FilePath (isExtensionOf, dropExtension) | 37 | import System.FilePath (isExtensionOf, dropExtension) |
38 | 38 | ||
39 | import Files | 39 | import Files |
40 | import Utils | ||
41 | 40 | ||
42 | 41 | ||
43 | data LoadException = LoadException String ParseException deriving Show | 42 | data LoadException = LoadException String ParseException deriving Show |
@@ -70,7 +69,7 @@ data Sidecar = Sidecar | |||
70 | 69 | ||
71 | readInputTree :: AnchoredFSNode -> IO InputTree | 70 | readInputTree :: AnchoredFSNode -> IO InputTree |
72 | readInputTree (AnchoredFSNode anchor root@Dir{}) = | 71 | readInputTree (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 = |