X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=compiler%2Futils%2FFastBool.lhs;h=32cb7aef3a58be310db943ed242fd87e74569f66;hp=ee9b40ff268b2fef8aa17afb24102087354cf5a4;hb=c5b178be60a5a44abd2f4ddf8c399857678326e2;hpb=206b4dec78250efef3cd927d64dc6cbc54a16c3d diff --git a/compiler/utils/FastBool.lhs b/compiler/utils/FastBool.lhs index ee9b40f..32cb7ae 100644 --- a/compiler/utils/FastBool.lhs +++ b/compiler/utils/FastBool.lhs @@ -13,7 +13,9 @@ module FastBool ( -- Import the beggars import GHC.Exts +#ifdef DEBUG import Panic +#endif type FastBool = Int# fastBool True = 1#