From: Michael Orlitzky Date: Mon, 24 Jun 2013 02:09:42 +0000 (-0400) Subject: Whitespace cleanup. X-Git-Url: https://gitweb.michael.orlitzky.com/?a=commitdiff_plain;h=81f6cb2ec955695d8d1a4619dab69e8fa4b3fb27;p=dead%2Fhalcyon.git Whitespace cleanup. --- 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