diff --git a/src/Dhall/Core.hs b/src/Dhall/Core.hs
index e9b081e..0a032d2 100644
--- a/src/Dhall/Core.hs
+++ b/src/Dhall/Core.hs
@@ -436,7 +436,7 @@ data Expr s a
     | Combine (Expr s a) (Expr s a)
     -- | > CombineTypes x y                         ~  x ⩓ y
     | CombineTypes (Expr s a) (Expr s a)
-    -- | > CombineRight x y                         ~  x ⫽ y
+    -- | > Prefer x y                               ~  x ⫽ y
     | Prefer (Expr s a) (Expr s a)
     -- | > Merge x y (Just t )                      ~  merge x y : t
     --   > Merge x y  Nothing                       ~  merge x y