src/Templates.hs Modified

@@ -10,7 +10,7 @@
 
 import Control.Monad (filterM, (<=<))
 import Data.Char (toLower)
-import Data.Either (rights, either)
+import Data.Either (rights)
 import Data.List (isSuffixOf)
 import Data.Text (unpack, Text)
 import qualified Data.HashMap.Strict as HashMap
@@ -62,7 +62,7 @@
 includes.
 -}
 includeResolver :: FilePath -> IO (Maybe String)
-includeResolver path = return . either (const Nothing) Just =<< tryIOError (readFile path)
+includeResolver path = either (const Nothing) Just <$> tryIOError (readFile path)
 
 {-
 This is used to filter files in the template directory so that we only try to load