added const body again

src/Main.hs

@@ -18,18 +18,27 @@ import           LambdaLifter                (lambdaLift)
 import Monomorphizer.Monomorphizer (monomorphize)
 import Renamer.Renamer (rename)
 import ReportForall (reportForall)
-import           System.Console.GetOpt       (ArgDescr (NoArg, ReqArg),
+import System.Console.GetOpt (
+    ArgDescr (NoArg, ReqArg),
     ArgOrder (RequireOrder),
-                                              OptDescr (Option), getOpt,
-                                              usageInfo)
-import           System.Directory            (createDirectory, doesPathExist,
+    OptDescr (Option),
+    getOpt,
+    usageInfo,
+ )
+import System.Directory (
+    createDirectory,
+    doesPathExist,
     getDirectoryContents,
     removeDirectoryRecursive,
-                                              setCurrentDirectory)
+    setCurrentDirectory,
+ )
 import System.Environment (getArgs)
-import           System.Exit                 (ExitCode (ExitFailure),
-                                              exitFailure, exitSuccess,
-                                              exitWith)
+import System.Exit (
+    ExitCode (ExitFailure),
+    exitFailure,
+    exitSuccess,
+    exitWith,
+ )
 import System.IO (stderr)
 import System.Process (spawnCommand, waitForProcess)
 import TypeChecker.TypeChecker (TypeChecker (Bi, Hm), typecheck)
@@ -158,9 +167,11 @@ fromErr :: Err a -> IO a
 fromErr = either (\s -> printToErr s >> exitFailure) pure
 
 prelude :: String
-prelude = unlines
+prelude =
+    unlines
         [ "\n"
         , "const : a -> b -> a"
+        , "const x y = x"
         , "data Bool () where"
         , "    False : Bool ()"
         , "    True  : Bool ()"