utils/hpc/HpcOverlay.hs

   1 module HpcOverlay where
   2
   3 import HpcFlags
   4 import HpcParser
   5
   6 overlay_options
   7         = srcDirOpt
   8         . hpcDirOpt
   9         . outputOpt
  10
  11 overlay_plugin = Plugin { name = "overlay"
  12                        , usage = "[OPTION] .. <OVERLAY_FILE> [<OVERLAY_FILE> [...]]"
  13                        , options = overlay_options
  14                        , summary = "Generate a .tix file from an overlay file"
  15                        , implementation = overlay_main
  16                        , init_flags = default_flags
  17                        , final_flags = default_final_flags
  18                        }
  19
  20
  21 overlay_main flags [] = hpcError overlay_plugin $ "no overlay file specified"
  22 overlay_main flags files = do
  23   print ("HERE", files)
  24   result <- hpcParser (head files)
  25   print result
  26   return ()
  27
  28