From 81f6cb2ec955695d8d1a4619dab69e8fa4b3fb27 Mon Sep 17 00:00:00 2001 From: Michael Orlitzky Date: Sun, 23 Jun 2013 22:09:42 -0400 Subject: [PATCH] Whitespace cleanup. --- src/CommandLine.hs | 4 ++-- src/Twitter/Http.hs | 2 +- 2 files changed, 3 insertions(+), 3 deletions(-) diff --git a/src/CommandLine.hs b/src/CommandLine.hs index b5487d4..699de08 100644 --- a/src/CommandLine.hs +++ b/src/CommandLine.hs @@ -54,12 +54,12 @@ options = ['h']["help"] (NoArg set_help) "Prints this help message.", - + Option ['n']["heartbeat"] (ReqArg set_heartbeat "heartbeat") "How many seconds to wait between polling.", - + Option ['t']["to"] (ReqArg set_to "email_address") diff --git a/src/Twitter/Http.hs b/src/Twitter/Http.hs index 14b0382..4c7c608 100644 --- a/src/Twitter/Http.hs +++ b/src/Twitter/Http.hs @@ -81,7 +81,7 @@ http_get uri = -- Pull out the response code as a CurlCode. let code = respCurlCode resp - + case code of CurlOK -> return $ Just (respBody resp) error_code -> do -- 2.44.2