lint correction

JacquesCarette · Jun 18, 2024 · 3d1c042 · 3d1c042
1 parent c20e033
commit 3d1c042
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/code/drasil-code/lib/Language/Drasil/Code/Imperative/DrasilState.hs b/code/drasil-code/lib/Language/Drasil/Code/Imperative/DrasilState.hs
@@ -199,7 +199,7 @@ getConstantsCls chs cs = cnCls (constStructure $ dataInfo chs) (inputStructure $
   where cnCls (Store Bundled) _ = zipCs Constants
         cnCls WithInputs Bundled = zipCs InputParameters
         cnCls _ _ = []
-        zipCs ic = map (, icNames chs ic) (map codeName cs)
+        zipCs ic = map ((, icNames chs ic) . codeName) cs
 
 -- | Get derived input functions (for @derived_values@).
 -- If there are no derived inputs, a derived inputs function is not generated.