-----------------------------------------------------------------------------
--- $Id: DriverPhases.hs,v 1.18 2002/04/05 15:18:26 sof Exp $
+-- $Id: DriverPhases.hs,v 1.22 2002/09/13 15:02:34 simonpj Exp $
--
-- GHC Driver
--
hsbootish_file, hsbootish_suffix,
objish_file, objish_suffix,
cish_file, cish_suffix,
- isExtCore_file
+ isExtCore_file, extcoreish_suffix,
+ isSourceFile -- :: FilePath -> Bool
) where
import DriverUtil
hsbootish_file = hsbootish_suffix . getFileSuffix
isExtCore_file = extcoreish_suffix . getFileSuffix
+
+isSourceFile :: FilePath -> Bool
+isSourceFile f =
+ haskellish_file f ||
+ cish_file f