From 687c17c6bb1bc312a5660492164a9f00d710212a Mon Sep 17 00:00:00 2001
From: Jasper Van der Jeugt <jaspervdj@gmail.com>
Date: Thu, 30 Dec 2010 10:11:37 +0100
Subject: Cleanup arrow code

---
 src/Hakyll/Web/FileType.hs | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

(limited to 'src/Hakyll/Web/FileType.hs')

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
-- 
cgit v1.2.3