@@ -19,5 +19,5 @@ initialize str =
19 (escapees, subs) <- unify hints modul
19 (escapees, subs) <- unify hints modul
20 let modul' = optimize . rename $ Module name ex im' stmts
20 let modul' = optimize . rename $ Module name ex im' stmts
21 where im' | any ((=="Prelude") . fst) im = im
21 where im' | any ((=="Prelude") . fst) im = im
22− | otherwise = ("Prelude", Importing []) : im
22+ | otherwise = ("Prelude", Hiding []) : im
23 subs `seq` return (escapees, modul')
23 subs `seq` return (escapees, modul')