ScenarioGetValueClass.hs

module LinkedList.ScenarioGetValueClass where

import GHC.Records

sumGetValueClass :: (HasField "a0" r Int, HasField "a1" r Int, HasField "a2" r Int, HasField "a3" r Int, HasField "a4" r Int, HasField "a5" r Int, HasField "a6" r Int, HasField "a7" r Int, HasField "a8" r Int, HasField "a9" r Int, HasField "a10" r Int, HasField "a11" r Int, HasField "a12" r Int, HasField "a13" r Int, HasField "a14" r Int, HasField "a15" r Int, HasField "a16" r Int, HasField "a17" r Int, HasField "a18" r Int, HasField "a19" r Int, HasField "a20" r Int, HasField "a21" r Int, HasField "a22" r Int, HasField "a23" r Int, HasField "a24" r Int, HasField "a25" r Int, HasField "a26" r Int, HasField "a27" r Int, HasField "a28" r Int, HasField "a29" r Int, HasField "a30" r Int, HasField "a31" r Int, HasField "a32" r Int, HasField "a33" r Int, HasField "a34" r Int, HasField "a35" r Int, HasField "a36" r Int, HasField "a37" r Int, HasField "a38" r Int, HasField "a39" r Int, HasField "a40" r Int, HasField "a41" r Int, HasField "a42" r Int, HasField "a43" r Int, HasField "a44" r Int, HasField "a45" r Int, HasField "a46" r Int, HasField "a47" r Int, HasField "a48" r Int, HasField "a49" r Int, HasField "a50" r Int, HasField "a51" r Int, HasField "a52" r Int, HasField "a53" r Int, HasField "a54" r Int, HasField "a55" r Int, HasField "a56" r Int, HasField "a57" r Int, HasField "a58" r Int, HasField "a59" r Int, HasField "a60" r Int, HasField "a61" r Int, HasField "a62" r Int, HasField "a63" r Int) => r -> Int
sumGetValueClass r =
  r.a0 + r.a1 + r.a2 + r.a3 + r.a4 + r.a5 + r.a6 + r.a7 + r.a8 + r.a9 + r.a10 + r.a11 + r.a12 + r.a13 + r.a14 + r.a15 + r.a16 + r.a17 + r.a18 + r.a19 + r.a20 + r.a21 + r.a22 + r.a23 + r.a24 + r.a25 + r.a26 + r.a27 + r.a28 + r.a29 + r.a30 + r.a31 + r.a32 + r.a33 + r.a34 + r.a35 + r.a36 + r.a37 + r.a38 + r.a39 + r.a40 + r.a41 + r.a42 + r.a43 + r.a44 + r.a45 + r.a46 + r.a47 + r.a48 + r.a49 + r.a50 + r.a51 + r.a52 + r.a53 + r.a54 + r.a55 + r.a56 + r.a57 + r.a58 + r.a59 + r.a60 + r.a61 + r.a62 + r.a63