git.iko.soy/project-m36
on master help sign in
restore aggregate function behavior with underscore
commitb79e50e077d5c6f98b211fec40ab8040fe56e25e authorAgentM <agentm@themactionfaction.com> dateTue 8 May 2018, 00:07 (8 years ago) parent2c897b7
1 file changed+2−1
compare with master
unifiedsplit
src/lib/ProjectM36/AtomFunction.hs+2−1
src/lib/ProjectM36/AtomFunction.hs+2−1
@@ -11,7 +11,8 @@ import qualified Data.Text as T
1111
1212
1313foldAtomFuncType :: AtomType -> AtomType -> [AtomType]
14−foldAtomFuncType foldType returnType = [RelationAtomType (A.attributesFromList [Attribute "a" foldType]), returnType]
14+--the underscore in the attribute name means that any attributes are acceptable
15+foldAtomFuncType foldType returnType = [RelationAtomType (A.attributesFromList [Attribute "_" foldType]), returnType]
1516
1617atomFunctionForName :: AtomFunctionName -> AtomFunctions -> Either RelationalError AtomFunction
1718atomFunctionForName funcName funcSet = if HS.null foundFunc then