Couple of more fixes

spell-music · Jan 5, 2023 · b2ebcfc · b2ebcfc
1 parent 6c72176
commit b2ebcfc
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 1 deletion.
diff --git a/Makefile b/Makefile
@@ -1,5 +1,5 @@
 build:
-	stack build csound-expression #-dynamic
+	stack build # csound-expression #-dynamic
 
 bench:
 	stack build csound-expression:bench:csound-expression-benchmark  # --profile
diff --git a/csound-expression-dynamic/src/Csound/Dynamic/Render/Pretty.hs b/csound-expression-dynamic/src/Csound/Dynamic/Render/Pretty.hs
@@ -287,6 +287,7 @@ ppConvertRate out to from var = case (to, from) of
     (Ar, Nothing) -> out $= toA var
     (Kr, Nothing) -> out $= toK var
     (Ir, Nothing) -> out $= toI var
+    (a, Just b) | a == b -> out $= var
     (a, b)   -> error $ "bug: no rate conversion from " ++ show b ++ " to " ++ show a ++ "."
     where
         upsamp x = ppOpc out "upsamp" [x]