# HG changeset patch
# User Chris Cannam
# Date 1740604764 0
#      Wed Feb 26 21:19:24 2025 +0000
# Node ID a64214e80f45b50bb574a0cecce32db6a872dbf3
# Parent  14c63c3154cf5e01ca3be7f7e4d972c31d898c43
Update following matrix api change

diff --git a/frequency-domain-fn.sml b/frequency-domain-fn.sml
--- a/frequency-domain-fn.sml
+++ b/frequency-domain-fn.sml
@@ -942,8 +942,15 @@
         fun toExternalSlice v = v
     end                       
 
+    structure Tensor = DenseTensorFn (ClassificationTensorFnArg)
+                                         
+    structure ClassificationMatrixFnArg = struct
+        structure TArg = ClassificationTensorFnArg
+        structure Tensor = Tensor
+    end
+
     structure Matrix : ORDERED_MATRIX_WITH_ZERO = struct
-        structure M = OrderedMatrixFn (ClassificationTensorFnArg)
+        structure M = OrderedMatrixFn (ClassificationMatrixFnArg)
         open M
         val zeroValue = BIN_SILENT
     end