diff options
Diffstat (limited to 'compiler/src/Input.hs')
-rw-r--r-- | compiler/src/Input.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/compiler/src/Input.hs b/compiler/src/Input.hs index 1316cdd..2480f5b 100644 --- a/compiler/src/Input.hs +++ b/compiler/src/Input.hs | |||
@@ -28,7 +28,7 @@ import Control.Exception (Exception, AssertionFailed(..), throw, throwIO) | |||
28 | import Control.Monad.IO.Class (MonadIO, liftIO) | 28 | import Control.Monad.IO.Class (MonadIO, liftIO) |
29 | import Data.Function ((&)) | 29 | import Data.Function ((&)) |
30 | import Data.Functor ((<&>)) | 30 | import Data.Functor ((<&>)) |
31 | import Data.Maybe (catMaybes) | 31 | import Data.Maybe (catMaybes, fromMaybe) |
32 | import Data.Bool (bool) | 32 | import Data.Bool (bool) |
33 | import Data.List (find) | 33 | import Data.List (find) |
34 | import Data.Time.Clock (UTCTime) | 34 | import Data.Time.Clock (UTCTime) |
@@ -91,7 +91,7 @@ readSidecarFile :: FilePath -> IO Sidecar | |||
91 | readSidecarFile filepath = | 91 | readSidecarFile filepath = |
92 | doesFileExist filepath | 92 | doesFileExist filepath |
93 | >>= bool (return Nothing) (decodeYamlFile filepath) | 93 | >>= bool (return Nothing) (decodeYamlFile filepath) |
94 | <&> maybe emptySidecar id | 94 | <&> fromMaybe emptySidecar |
95 | 95 | ||
96 | 96 | ||
97 | readInputTree :: AnchoredFSNode -> IO InputTree | 97 | readInputTree :: AnchoredFSNode -> IO InputTree |