diff options
Diffstat (limited to 'src/Hakyll/Web/Pandoc/FileType.hs')
| -rw-r--r-- | src/Hakyll/Web/Pandoc/FileType.hs | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/Hakyll/Web/Pandoc/FileType.hs b/src/Hakyll/Web/Pandoc/FileType.hs index db24da7..2d28edd 100644 --- a/src/Hakyll/Web/Pandoc/FileType.hs +++ b/src/Hakyll/Web/Pandoc/FileType.hs @@ -8,7 +8,7 @@ module Hakyll.Web.Pandoc.FileType -------------------------------------------------------------------------------- -import Control.Arrow ((>>^)) +import Control.Applicative ((<$>)) import System.FilePath (takeExtension) @@ -62,5 +62,5 @@ fileType = fileType' . takeExtension -------------------------------------------------------------------------------- -- | Get the file type for the current file -getFileType :: Compiler a FileType -getFileType = getIdentifier >>^ fileType . toFilePath +getFileType :: Compiler FileType +getFileType = fileType . toFilePath <$> getIdentifier |