@@ -390,9 +390,8 @@ execForeign env ctxt arity ty fn xs onfail
390 ". Are all cases covered?"
390 ". Are all cases covered?"
391 | Just (FFun "fileRemove" [(_,fileStr)] _) <- foreignFromTT arity ty fn xs
391 | Just (FFun "fileRemove" [(_,fileStr)] _) <- foreignFromTT arity ty fn xs
392 = case fileStr of
392 = case fileStr of
393− EConstant (Str f) -> do eofp <- execIO $ removeFile f
393+ EConstant (Str f) -> do execIO $ removeFile f
394− let res = ioWrap (EConstant (I $ if eofp then 1 else 0))
395− execApp env ctxt res (drop arity xs)
394+ execApp env ctxt ioUnit (drop arity xs)
396 _ -> execFail . Msg $
395 _ -> execFail . Msg $
397 "The argument to fileRemove should be a constant string, but it was " ++
396 "The argument to fileRemove should be a constant string, but it was " ++
398 show handle ++
397 show handle ++