haskell/yesod
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Stop the unicorns from crying

Browse Source
This commit is contained in:
Michael Snoyman 2011-01-21 12:06:45 +02:00
parent 27d62db253
commit 04df11e41c
1 changed files with 1 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
Yesod/Core.hs
View File

@ -180,11 +180,6 @@ class Eq (Route a) => Yesod a where
-- * If the last path segment has a period, there is no trailing slash. -- * If the last path segment has a period, there is no trailing slash.
-- --
-- * Otherwise, ensures there /is/ a trailing slash. -- * Otherwise, ensures there /is/ a trailing slash.
--
-- Note: As a special rule, any paths beginning with static are left alone
-- so that the static subsite, if available, can deal with proper
-- directory/folder naming. If you do not wish this behavior, you will need
-- to override this method.
splitPath :: a -> S.ByteString -> Either S.ByteString [String] splitPath :: a -> S.ByteString -> Either S.ByteString [String]
splitPath _ s = splitPath _ s =
if corrected == s if corrected == s
@ -193,9 +188,7 @@ class Eq (Route a) => Yesod a where
$ S8.unpack s $ S8.unpack s
else Left corrected else Left corrected
where where
corrected corrected = S8.pack $ rts $ ats $ rds $ S8.unpack s
| s == "/static" || "/static/" `S.isPrefixOf` s = s
| otherwise = S8.pack $ rts $ ats $ rds $ S8.unpack s
-- | Remove double slashes -- | Remove double slashes
rds :: String -> String rds :: String -> String