@@ -40,7 +40,7 @@ run () flags =
40 do approved <- Task.getApproval question
40 do approved <- Task.getApproval question
41 if approved
41 if approved
42 then init flags
42 then init flags
43− else liftIO $ putStrLn "TODO"
43+ else liftIO $ putStrLn "Okay, I left everything the same!"
46question :: D.Doc
46question :: D.Doc