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