Fix alteraPll qsys generation (#2587)

PR #2417 caused a bug in the generation of the `qsys` file: it generated
a spurious extra output clock which was completely unused otherwise.

Author: DigitalBrains1

changelog/2023-10-05T16_56_51+02_00_correct_qsys

@@ -0,0 +1 @@
+FIXED: Fix `alteraPll` `qsys` generation. PR [#2417](https://github.com/clash-lang/clash-compiler/pull/2417) (included in Clash v1.6.5) caused a bug in the generation of the `qsys` file: it generated a spurious extra output clock which was completely unused otherwise.

clash-lib/src/Clash/Primitives/Intel/ClockGen.hs

@@ -297,14 +297,9 @@ alteraPllQsysTemplate
 alteraPllQsysTemplate bbCtx
   |   _clocksClass
     : (_,stripVoid -> kdIn,_)
-    : (_,stripVoid -> kdOutsProd,_)
+    : (_,stripVoid -> Product _ _ (init -> kdOuts),_)
     : _ <- bbInputs bbCtx
   = let
-      kdOuts = case kdOutsProd of
-        Product _ _ ps -> ps
-        KnownDomain {} -> [kdOutsProd]
-        _ -> error "internal error: not a Product or KnownDomain"
-
       cklFreq (KnownDomain _ p _ _ _ _)
         = periodToHz (fromIntegral p) / 1e6 :: Double
       cklFreq _ = error "internal error: not a KnownDomain"