From 10e255c3cc4eb0076680362c8055792fda1bff1c Mon Sep 17 00:00:00 2001
From: Michael Snoyman <michael@snoyman.com>
Date: Sun, 4 Jan 2015 14:01:47 +0200
Subject: [PATCH] Remove unnecessary dropExtension

---
 Handler/Haddock.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/Handler/Haddock.hs b/Handler/Haddock.hs
index 8884663..9d6e25b 100644
--- a/Handler/Haddock.hs
+++ b/Handler/Haddock.hs
@@ -492,7 +492,7 @@ nameAndVersionFromPath :: FilePath -> Maybe (Text, Text)
 nameAndVersionFromPath fp =
     (\name -> (name, version)) <$> stripSuffix "-" name'
   where
-    (name', version) = T.breakOnEnd "-" $ fpToText $ F.dropExtension $ filename fp
+    (name', version) = T.breakOnEnd "-" $ fpToText $ filename fp
 
 ---------------------------------------------------------------------
 -- HADDOCK HACKS