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

Avoid the annoying "y shadowed" GHC warnings

Browse Source
This commit is contained in:
Michael Snoyman 2012-10-12 10:22:18 +02:00
parent 01b855969b
commit 01eae3351a
2 changed files with 6 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
yesod-routes/Yesod/Routes/TH/Dispatch.hs
View File

@ -203,8 +203,11 @@ routeArg3 runHandler dispatcher fixHandler parents name resPieces resDisp = do
Static _ -> return Nothing Static _ -> return Nothing
Dynamic _ -> Just <$> newName "x" Dynamic _ -> Just <$> newName "x"
ys <- forM (catMaybes xs) $ \x -> do -- Note: the zipping with Ints is just a workaround for (apparently) a bug
y <- newName "y" -- in GHC where the identifiers are considered to be overlapping. Using
-- newName should avoid the problem, but it doesn't.
ys <- forM (zip (catMaybes xs) [1..]) $ \(x, i) -> do
y <- newName $ "y" ++ show (i :: Int)
return (x, y) return (x, y)
-- In case we have multi pieces at the end -- In case we have multi pieces at the end

2
yesod-routes/yesod-routes.cabal
View File

@ -1,5 +1,5 @@
name: yesod-routes name: yesod-routes
version: 1.1.0.1 version: 1.1.0.2
license: MIT license: MIT
license-file: LICENSE license-file: LICENSE
author: Michael Snoyman <michael@snoyman.com> author: Michael Snoyman <michael@snoyman.com>