+phaseInputExt HsBoot = "hs-boot"
+#ifdef ILX
+phaseInputExt Ilx2Il = "ilx"
+phaseInputExt Ilasm = "il"
+#endif
+
+haskellish_suffix = (`elem` [ "hs", "lhs", "hspp", "hscpp", "hcr", "hc", "raw_s" ])
+haskellish_src_suffix = (`elem` [ "hs", "lhs", "hspp", "hscpp", "hcr"])
+cish_suffix = (`elem` [ "c", "cpp", "C", "cc", "cxx", "s", "S" ])
+hsbootish_suffix = (`elem` [ "hs-boot" ])
+extcoreish_suffix = (`elem` [ "hcr" ])
+
+#if mingw32_TARGET_OS || cygwin32_TARGET_OS
+objish_suffix = (`elem` [ "o", "O", "obj", "OBJ" ])
+#else
+objish_suffix = (`elem` [ "o" ])
+#endif