Commits

Sergey Astanin committed 4e7a922

Code cleanup (hlint assisted)

Comments (0)

Files changed (1)

         -> [String]   -- ^ Path to the node with the result in the XML response
         -> IO Result
 request acc path params xmlpath = do
-  let baseURL = (server acc) ++ "/" ++ path
+  let baseURL = server acc ++ "/" ++ path
   let params' = loginParams ++ params :: [ (String, String) ]
-  let reqURL  = baseURL ++ "?" ++ (urlEncodeVars params')
+  let reqURL  = baseURL ++ "?" ++ urlEncodeVars params'
   let req     = getRequest reqURL :: Request String
   resp <- simpleHTTP req
   case resp of
   let cs = tag "bitly" /> tag "statusCode" /> txt $ root
   case cs of
     [] -> Left "No statusCode in response"
-    (CString _ code:_) -> do
-          if (code /= "OK")
+    (CString _ code:_) ->
+          if code /= "OK"
             then
               let err = concatMap (render . content) $
                         tag "bitly" /> tag "errorMessage" /> txt $ root
               in  Left $ "Bit.ly error: " ++ err
             else
               let url' = concatMap (render . content) $
-                         (foldr (/>) txt $ map tag xmlpath ) $ root
+                         foldr (/>) txt (map tag xmlpath) root
               in  if null url'
                     then Left "Result not found"
                     else Right url'
Tip: Filter by directory path e.g. /media app.js to search for public/media/app.js.
Tip: Use camelCasing e.g. ProjME to search for ProjectModifiedEvent.java.
Tip: Filter by extension type e.g. /repo .js to search for all .js files in the /repo directory.
Tip: Separate your search with spaces e.g. /ssh pom.xml to search for src/ssh/pom.xml.
Tip: Use ↑ and ↓ arrow keys to navigate and return to view the file.
Tip: You can also navigate files with Ctrl+j (next) and Ctrl+k (previous) and view the file with Ctrl+o.
Tip: You can also navigate files with Alt+j (next) and Alt+k (previous) and view the file with Alt+o.