X-Git-Url: http://gitweb.michael.orlitzky.com/?p=mailbox-count.git;a=blobdiff_plain;f=src%2FMain.hs;h=d153716e3ad575f9368ce2bc779785721986068b;hp=633e969fcef69849fd07ed602990e52a0f49d80f;hb=bc4c3efd191f3cc5b7b9f046775bff706c491a7d;hpb=7a6ba612bdec5ba940dc6f74143ca64a9163fff2 diff --git a/src/Main.hs b/src/Main.hs index 633e969..d153716 100644 --- a/src/Main.hs +++ b/src/Main.hs @@ -68,6 +68,6 @@ main = do --exitWith (ExitFailure exit_no_username) conn <- connectPostgreSQL (connection_string cfg) - r <- report conn (both cfg) (detail cfg) + r <- report conn (detail cfg) putStrLn r -- disconnect conn