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