- let (o_base, o_ext) = splitFilename input_fn
- let wrapped_executable | o_ext == "exe" = (o_base ++ "_real") `joinFileExt` o_ext
+ let (o_base, o_ext) = splitExtension input_fn
+ let wrapped_executable | o_ext == "exe" = (o_base ++ "_real") <.> o_ext