fix broken duplicate function name detection
commit77c70b8e3303b4c16a361436072b38dc897a06ca
authorAgentM <agentm@themactionfaction.com>
dateWed 24 Aug 2016, 18:21 (10 years ago)
parent97524b4
src/lib/ProjectM36/RelationalExpression.hs+1−1
@@ -357,7 +357,7 @@ evalDatabaseContextIOExpr scriptSession currentContext (AddAtomFunction funcName
357357 atomFuncBody = AtomFunctionBody (Just script) compiledFunc }
358358
359359 -- check if the name is already in use
360− if HS.member newAtomFunc atomFuncs then
360+ if HS.member funcName (HS.map atomFuncName atomFuncs) then
361361 Left (AtomFunctionNameInUseError funcName)
362362 else do
363363 Right newContext