X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=utils%2Fhpc%2FHpcCombine.hs;h=ea23ab982d419cad392fb19a3aaa4aaacc9a2510;hb=6e4c802adf4e8d9beaeb4e4529ae2ef3e702157f;hp=d16ace940ae524c9e38e47f99864764e680932d7;hpb=858a055da9f768dd20268cdddb3a3b7c904e83ef;p=ghc-hetmet.git

diff --git a/utils/hpc/HpcCombine.hs b/utils/hpc/HpcCombine.hs
index d16ace9..ea23ab9 100644
--- 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> ..]]"