Skip to content
Browse files

Oops

  • Loading branch information...
1 parent 26e40aa commit a994e7beb3f8bb0c6a5b2cf7dd98c2faa7e6555c @dmatveev committed Apr 7, 2012
Showing with 2 additions and 2 deletions.
  1. +2 −2 YandexGeocoder.hs
View
4 YandexGeocoder.hs
@@ -76,8 +76,8 @@ readPos s = case parse posParser "" s of
buildObjectFrom :: JSObject JSValue -> Result GeoObject
buildObjectFrom obj = do
- object <- "GeoObject" @@ obj
- name <- "name" @@ object
+ object <- "GeoObject" @@ obj
+ name <- "name" @@ object
pos <- readPos =<< (@@) "pos" =<< "Point" @@ object
return $ GeoObject { goName = name, goPos = pos }

0 comments on commit a994e7b

Please sign in to comment.
Something went wrong with that request. Please try again.