diff options
| author | Jasper Van der Jeugt <jaspervdj@gmail.com> | 2010-12-30 10:11:37 +0100 |
|---|---|---|
| committer | Jasper Van der Jeugt <jaspervdj@gmail.com> | 2010-12-30 10:11:37 +0100 |
| commit | 687c17c6bb1bc312a5660492164a9f00d710212a (patch) | |
| tree | 0cbb1875b110eb5c9c024cd70e1e8ce6beae2a87 /src/Hakyll/Web/FileType.hs | |
| parent | 1c1133dfd6adae7c9c667d47eabaabb89cf8bdf9 (diff) | |
| download | hakyll-687c17c6bb1bc312a5660492164a9f00d710212a.tar.gz | |
Cleanup arrow code
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 |