wrath/shaniqua-plugins
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Random name instead of 'v'

Browse Source
This commit is contained in:
dons 2006-04-10 00:25:00 +00:00
parent 11bdb44011
commit 33c374fb75
1 changed files with 9 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
src/System/Eval/Haskell.hs
View File

@ -235,8 +235,8 @@ dynwrap expr nm mods =
"module "++nm++ "( resource ) where\n" ++ "module "++nm++ "( resource ) where\n" ++
concatMap (\m-> "import "++m++"\n") mods ++ concatMap (\m-> "import "++m++"\n") mods ++
"import AltData.Dynamic\n" ++ "import AltData.Dynamic\n" ++
"resource = let { v = \n" ++ "resource = let { yhjulwwiefzojcbxybbruweejw = \n" ++
"{-# LINE 1 \"<eval>\" #-}\n" ++ expr ++ ";} in toDyn v" "{-# LINE 1 \"<eval>\" #-}\n" ++ expr ++ ";} in toDyn yhjulwwiefzojcbxybbruweejw"
-- --------------------------------------------------------------------- -- ---------------------------------------------------------------------
-- unsafe wrapper -- unsafe wrapper
@ -245,8 +245,13 @@ wrap :: String -> String -> [Import] -> String
wrap expr nm mods = wrap expr nm mods =
"module "++nm++ "( resource ) where\n" ++ "module "++nm++ "( resource ) where\n" ++
concatMap (\m-> "import "++m++"\n") mods ++ concatMap (\m-> "import "++m++"\n") mods ++
"resource = let { v = \n" ++ "resource = let { yhjulwwiefzojcbxybbruweejw = \n" ++
"{-# LINE 1 \"<Plugins.Eval>\" #-}\n" ++ expr ++ ";} in v" "{-# LINE 1 \"<Plugins.Eval>\" #-}\n" ++ expr ++ ";} in yhjulwwiefzojcbxybbruweejw"
-- what is this big variable name?
-- its a random value, so that it won't clash if the accidently mistype
-- an unbound 'x' or 'v' in their code.. it won't reveal the internal
-- structure of the wrapper, which is annoying in irc use by lambdabot
{- {-
------------------------------------------------------------------------ ------------------------------------------------------------------------