Support the return of an IO Status from both uploadImage and uploadIm…

…ageWithAttr
killerswan · May 2, 2012 · 2142b90 · 2142b90
1 parent fd9e456
commit 2142b90
Showing 1 changed file with 8 additions and 6 deletions.
diff --git a/upload.hs b/upload.hs
@@ -100,10 +100,12 @@ main =
 
       do
          token  <- readToken (tokenFile opts)
-         case coord opts
-            of Nothing     -> uploadImage token (status opts) (image opts)
-               Just latlon -> uploadImageWithAttr token (status opts) (image opts)
-                                 [ DisplayCoords
-                                 , LatLon (fst latlon) (snd latlon)
-                                 ]
+         new <- case coord opts
+                of Nothing     -> uploadImage token (status opts) (image opts)
+                   Just latlon -> uploadImageWithAttr token (status opts) (image opts)
+                                    [ DisplayCoords
+                                    , LatLon (fst latlon) (snd latlon)
+                                    ]
+
+         print new