haskell/stackage-server
1
0
Fork 0
mirror of https://github.com/commercialhaskell/stackage-server.git synced 2026-01-30 21:00:24 +01:00
Code Issues Actions Packages Projects Releases Wiki Activity

Remove unnecessary dropExtension

Browse Source
This commit is contained in:
Michael Snoyman 2015-01-04 14:01:47 +02:00
parent 86f3add286
commit 10e255c3cc
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
Handler/Haddock.hs
View File

@ -492,7 +492,7 @@ nameAndVersionFromPath :: FilePath -> Maybe (Text, Text)
nameAndVersionFromPath fp = nameAndVersionFromPath fp =
(\name -> (name, version)) <$> stripSuffix "-" name' (\name -> (name, version)) <$> stripSuffix "-" name'
where where
(name', version) = T.breakOnEnd "-" $ fpToText $ F.dropExtension $ filename fp (name', version) = T.breakOnEnd "-" $ fpToText $ filename fp
--------------------------------------------------------------------- ---------------------------------------------------------------------
-- HADDOCK HACKS -- HADDOCK HACKS