ちなみに、
do args <- getArgs
   cnt <- getContents
   return otherFunc args True cnt
だったら？