Make "runghc -f path-to-ghc Main.hs" work

[ghc-hetmet.git] / utils / hpc / HpcCombine.hs

diff --git a/utils/hpc/HpcCombine.hs b/utils/hpc/HpcCombine.hs
index d16ace9..ea23ab9 100644 (file)
--- a/utils/hpc/HpcCombine.hs
+++ b/utils/hpc/HpcCombine.hs
@@ -16,8 +16,13 @@ import qualified HpcMap as Map
 import System.Environment
 
 ------------------------------------------------------------------------------
-combine_options = 
-  [ excludeOpt,includeOpt,outputOpt,combineFunOpt, combineFunOptInfo, postInvertOpt ]
+combine_options 
+        = excludeOpt
+        . includeOpt
+        . outputOpt
+        . combineFunOpt
+        . combineFunOptInfo
+        . postInvertOpt
                 
 combine_plugin = Plugin { name = "combine"
                       , usage = "[OPTION] .. <TIX_FILE> [<TIX_FILE> [<TIX_FILE> ..]]"