Small haskell app that takes a command, and continually re-runs it until it exits successfully