From c3d8b2a27a41ae8dcf425a94bce7e093964c7616 Mon Sep 17 00:00:00 2001 From: Michael Orlitzky Date: Wed, 27 Nov 2013 20:15:46 -0500 Subject: [PATCH] Remove redundant "do". --- src/Main.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/Main.hs b/src/Main.hs index 415517f..e1cb91a 100644 --- a/src/Main.hs +++ b/src/Main.hs @@ -56,7 +56,7 @@ recv_line h = do save_document :: Configuration -> String -> IO () -save_document cfg doc = do +save_document cfg doc = case maybe_path of Nothing -> report_error "ERROR: document missing XML_File_ID element." -- 2.43.2