diff --git a/src/Main.hs b/src/Main.hs
index 4f31cc7..75e53d9 100644
--- a/src/Main.hs
+++ b/src/Main.hs
@@ -203,7 +203,7 @@ prelude =
         , "printChar : Char -> Unit"
         , "printChar = \\x. Unit"
         , "\n"
-        , "flipConst : a -> b -> a"
+        , "flipConst : a -> b -> b"
         , "flipConst x y = y"
         , "\n"
         , "printStr : List Char -> Unit"