Fix argument parsing in clashCompileError (#2537)

Even though it has type `String -> a` and thus only a single argument,
when `a` is itself a function type, we have to account for additional
arguments in `BlackBoxFunction`.

Author: DigitalBrains1

clash-lib/src/Clash/Primitives/Prelude.hs

@@ -15,16 +15,17 @@ module Clash.Primitives.Prelude
 
 import Data.Either (lefts)
 import GHC.Stack (HasCallStack)
+import Text.Show.Pretty
 
 import Clash.Core.TermLiteral (termToDataError)
 import Clash.Netlist.BlackBox.Types (BlackBoxFunction)
 import Clash.Netlist.Types ()
 
 clashCompileErrorBBF :: HasCallStack => BlackBoxFunction
 clashCompileErrorBBF _isD _primName args _ty
-  | [ _hasCallstack
-    , either error id . termToDataError -> msg
-    ] <- lefts args
+  |   _hasCallstack
+    : (either error id . termToDataError -> msg)
+    : _ <- lefts args
   = pure $ Left $ "clashCompileError: " <> msg
   | otherwise
-  = pure $ Left $ show 'clashCompileErrorBBF <> ": bad args: " <> show args
+  = pure $ Left $ show 'clashCompileErrorBBF <> ": bad args:\n" <> ppShow args