rename and0 to constRgbPair

lemastero · May 6, 2024 · d186706 · d186706
1 parent a102758
commit d186706
Showing 1 changed file with 3 additions and 3 deletions.
diff --git a/examples/adts.agda b/examples/adts.agda
@@ -42,6 +42,6 @@ rgbConstTrue1 rgb = True -- TODO produce function body
 
 -- function with multiple named arguments
 
-and0 : (rgbPairArg : RgbPair) -> (rgbArg : Rgb) -> RgbPair
-and0 rgbPairArg rgbArg = rgbPairArg
-{-# COMPILE AGDA2SCALA and0 #-}
+constRgbPair : (rgbPairArg : RgbPair) -> (rgbArg : Rgb) -> RgbPair
+constRgbPair rgbPairArg rgbArg = rgbPairArg
+{-# COMPILE AGDA2SCALA constRgbPair #-}