github/shellcheck
1
0
Fork 0
mirror of https://github.com/koalaman/shellcheck synced 2025-07-14 00:53:15 -07:00
Code Issues Projects Releases Packages Wiki Activity Actions

Fix compiler error on some GHC versions

Browse source 
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
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 state =
let
declaredFuncs = S.unions $ mapStorage $ sFunctionTargets state
declaredFuncs = S.unions $ M.elems $ mapStorage $ sFunctionTargets state
getFunc d =
case d of
FunctionDefinition _ entry _ -> Just (entry, d)