All pastes #819277 Raw Edit

Miscellany

public text v1 · immutable
·published 2007-12-16 21:37 UTC
rendered paste body
act (Delete word) = do
  fp <- todofile
  fh <- openFile fp ReadMode
  fc <- hGetContents fh
  let content = unlines $ filter (not.isInfixOf word) (lines fc)
  --print content
  hClose fh
  fh <- openFile fp WriteMode
  hPutStr fh content
  hClose fh