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

Workaround for some meaningless warnings

Browse Source
This commit is contained in:
Michael Snoyman 2014-04-09 21:34:36 +03:00
parent 5e6b19f624
commit e61c98507b
2 changed files with 7 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
yesod-routes/Yesod/Routes/TH/Simple.hs
View File

@ -5,11 +5,11 @@ import Prelude hiding (exp)
import Yesod.Routes.TH import Yesod.Routes.TH
import Language.Haskell.TH.Syntax import Language.Haskell.TH.Syntax
import Web.PathPieces import Web.PathPieces
import Data.Maybe (mapMaybe, catMaybes) import Data.Maybe (catMaybes)
import Control.Monad (forM) import Control.Monad (forM)
import Data.List (foldl') import Data.List (foldl')
import Data.ByteString (ByteString)
import Control.Arrow (second) import Control.Arrow (second)
import System.Random (randomRIO)
data SDC = SDC data SDC = SDC
{ clause404 :: Clause { clause404 :: Clause
@ -25,9 +25,10 @@ data SDC = SDC
-- Since 1.2.1 -- Since 1.2.1
mkSimpleDispatchClause :: MkDispatchSettings -> [ResourceTree a] -> Q Clause mkSimpleDispatchClause :: MkDispatchSettings -> [ResourceTree a] -> Q Clause
mkSimpleDispatchClause MkDispatchSettings {..} resources = do mkSimpleDispatchClause MkDispatchSettings {..} resources = do
envName <- newName "env" suffix <- qRunIO $ randomRIO (1000, 9999 :: Int)
reqName <- newName "req" envName <- newName $ "env" ++ show suffix
helperName <- newName "helper" reqName <- newName $ "req" ++ show suffix
helperName <- newName $ "helper" ++ show suffix
let envE = VarE envName let envE = VarE envName
reqE = VarE reqName reqE = VarE reqName

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

@ -22,6 +22,7 @@ library
, template-haskell , template-haskell
, path-pieces >= 0.1 && < 0.2 , path-pieces >= 0.1 && < 0.2
, bytestring , bytestring
, random
exposed-modules: Yesod.Routes.Dispatch exposed-modules: Yesod.Routes.Dispatch
Yesod.Routes.TH Yesod.Routes.TH