Use splitPath

1 files changed, 2 insertions, 4 deletions

diff --git a/src/Hakyll/Core/Identifier.hs b/src/Hakyll/Core/Identifier.hs
index 3b67381..90f0eea 100644
--- a/src/Hakyll/Core/Identifier.hs
+++ b/src/Hakyll/Core/Identifier.hs
@@ -38,11 +38,11 @@ module Hakyll.Core.Identifier
     , setGroup
     ) where
 
-import Control.Arrow (second)
 import Control.Applicative ((<$>), (<*>))
 import Control.Monad (mplus)
 import Data.Monoid (Monoid, mempty, mappend)
 import Data.List (intercalate)
+import System.FilePath (dropTrailingPathSeparator, splitPath)
 
 import Data.Binary (Binary, get, put)
 import GHC.Exts (IsString, fromString)
@@ -83,9 +83,7 @@ parseIdentifier :: String -> Identifier a
 parseIdentifier = Identifier Nothing
                 . intercalate "/" . filter (not . null) . split'
   where
-    split' [] = [[]]
-    split' str = let (pre, post) = second (drop 1) $ break (== '/') str
-                 in pre : split' post
+    split' = map dropTrailingPathSeparator . splitPath
 
 -- | Convert an identifier to a relative 'FilePath'
 --