7x31
/
shellcheck
mirror of https://github.com/koalaman/shellcheck.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

Fix compiler error on some GHC versions 

Fixes the following error:

    src/ShellCheck/CFGAnalysis.hs:1394:40: error:
	* Couldn't match expected type `[S.Set a]'
		      with actual type `M.Map String FunctionValue'
	* In the second argument of `($)', namely
	    `mapStorage $ sFunctionTargets state'
	  In the expression: S.unions $ mapStorage $ sFunctionTargets state
	  In an equation for `declaredFuncs':
	      declaredFuncs = S.unions $ mapStorage $ sFunctionTargets state
	* Relevant bindings include
	    declaredFuncs :: S.Set a
	      (bound at src/ShellCheck/CFGAnalysis.hs:1394:13)
This commit is contained in:
Vidar Holen 2022-12-11 14:48:00 -08:00
parent 495e34d101
commit 74b1745a19
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/ShellCheck/CFGAnalysis.hs
View File

@ -1391,7 +1391,7 @@ analyzeControlFlow params t =
getFunctionTargets :: InternalState -> M.Map Node FunctionDefinition getFunctionTargets :: InternalState -> M.Map Node FunctionDefinition
getFunctionTargets state = getFunctionTargets state =
let let
declaredFuncs = S.unions $ mapStorage $ sFunctionTargets state declaredFuncs = S.unions $ M.elems $ mapStorage $ sFunctionTargets state
getFunc d = getFunc d =
case d of case d of
FunctionDefinition _ entry _ -> Just (entry, d) FunctionDefinition _ entry _ -> Just (entry, d)