hlint fix

JacquesCarette · Jun 18, 2024 · c20e033 · c20e033
1 parent 0e13e04
commit c20e033
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 = zip (map codeName cs) $ repeat (icNames chs ic)
+        zipCs ic = map (, icNames chs ic) (map codeName cs)
 
 -- | Get derived input functions (for @derived_values@).
 -- If there are no derived inputs, a derived inputs function is not generated.