import Foreign.Marshal.Alloc ( allocaBytes )
import System.IO (IOMode(..), openBinaryFile, hGetBuf, hPutBuf, hClose)
import System.IO.Error ( try )
-import GHC.IOBase ( IOException(..), IOErrorType(..) )
+import GHC.IOBase ( IOException(..) )
#else
import System.IO ( try )
#endif
import PackageConfig
import FastString
import Outputable
-import FastTypes
import GHC.Exts
import Data.Char ( chr, ord )
#include "HsVersions.h"
-import Panic ( panic, trace )
import FastTypes
+#ifdef DEBUG
+import Panic ( panic, trace )
+#endif
+
import Control.Exception ( Exception(..), finally, catchDyn, throw )
import qualified Control.Exception as Exception
import Data.Dynamic ( Typeable )
import System.IO.Unsafe ( unsafePerformIO )
import Data.IORef ( readIORef, writeIORef )
-import qualified Data.List as List ( elem, notElem )
-
+import qualified Data.List as List ( elem )
#ifndef DEBUG
import Data.List ( zipWith4 )
+#else
+import qualified Data.List as List ( notElem )
#endif
import Control.Monad ( when )
module Lexer (lex_tok) where
import ParserM (ParserM (..), mkT, mkTv, Token(..), St, start_code,
- StartCode, Action, set_start_code,
+ set_start_code,
inc_brace_depth, dec_brace_depth,
show_pos, position, input,
AlexInput, alexGetChar, alexInputPrevChar)
happyError
) where
-import Syntax
-
-- Parser Monad
newtype ParserM a = ParserM (AlexInput -> St -> Either String (AlexInput, St, a))
-- (c) 2007 Andy Gill
-- Main driver for Hpc
-import Trace.Hpc.Tix
import HpcFlags
import System.Environment
import System.Exit
import Control.Monad
import qualified HpcSet as Set
import qualified HpcMap as Map
-import System.Environment
------------------------------------------------------------------------------
combine_options =
import Control.Monad
import qualified HpcSet as Set
import qualified HpcMap as Map
-import System.Environment
import HpcUtils
import Data.Tree
module HpcFlags where
import System.Console.GetOpt
-import Data.Maybe ( fromMaybe )
import qualified HpcSet as Set
import Data.Char
import Trace.Hpc.Tix
import HpcFlags
-import System.Environment
import System.Directory
import Data.List
import Data.Maybe(fromJust)
module HpcReport (report_plugin) where
-import System.Exit
import Prelude hiding (exp)
-import System(getArgs)
import List(sort,intersperse)
import HpcFlags
import Trace.Hpc.Mix
import Trace.Hpc.Mix
import Trace.Hpc.Tix
-import Trace.Hpc.Util
import HpcFlags