diff options
Diffstat (limited to 'src/Hakyll/Web/FileType.hs')
-rw-r--r-- | src/Hakyll/Web/FileType.hs | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/Hakyll/Web/FileType.hs b/src/Hakyll/Web/FileType.hs index d5a9c56..cd1188a 100644 --- a/src/Hakyll/Web/FileType.hs +++ b/src/Hakyll/Web/FileType.hs @@ -7,7 +7,7 @@ module Hakyll.Web.FileType ) where import System.FilePath (takeExtension) -import Control.Arrow ((>>>), arr) +import Control.Arrow ((>>^)) import Hakyll.Core.Identifier import Hakyll.Core.Compiler @@ -51,5 +51,5 @@ fileType = fileType' . takeExtension -- | Get the file type for the current file -- -getFileType :: Compiler () FileType -getFileType = getIdentifier >>> arr (fileType . toFilePath) +getFileType :: Compiler a FileType +getFileType = getIdentifier >>^ fileType . toFilePath |