From: benl@ouroborus.net Date: Thu, 27 May 2010 04:56:29 +0000 (+0000) Subject: Whitespace only X-Git-Tag: 2010-11-18~460 X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;ds=sidebyside;h=3ebd889775714f8ad3bae8d9cc7a4790ef04614f;hp=1d227d655c7391143baa7ce777be8103d5426e82;p=ghc-hetmet.git Whitespace only --- diff --git a/compiler/main/StaticFlags.hs b/compiler/main/StaticFlags.hs index 8de8611..95740c6 100644 --- a/compiler/main/StaticFlags.hs +++ b/compiler/main/StaticFlags.hs @@ -184,14 +184,19 @@ opt_IgnoreDotGhci = lookUp (fsLit "-ignore-dot-ghci") -- debugging opts opt_SuppressUniques :: Bool opt_SuppressUniques = lookUp (fsLit "-dsuppress-uniques") + opt_SuppressCoercions :: Bool opt_SuppressCoercions = lookUp (fsLit "-dsuppress-coercions") + opt_PprStyle_Debug :: Bool opt_PprStyle_Debug = lookUp (fsLit "-dppr-debug") + opt_PprUserLength :: Int opt_PprUserLength = lookup_def_int "-dppr-user-length" 5 --ToDo: give this a name + opt_Fuel :: Int opt_Fuel = lookup_def_int "-dopt-fuel" maxBound + opt_NoDebugOutput :: Bool opt_NoDebugOutput = lookUp (fsLit "-dno-debug-output")