diff --git a/ig.cabal b/ig.cabal
--- a/ig.cabal
+++ b/ig.cabal
@@ -1,5 +1,5 @@
 name:                ig
-version:             0.5.1
+version:             0.6
 synopsis:            Bindings to Instagram's API.
 homepage:            https://github.com/prowdsponsor/ig
 license:             BSD3
@@ -50,6 +50,7 @@
     , resourcet
     , http-types
     , http-conduit         >= 2.0     && < 2.2
+    , attoparsec           >= 0.10    && < 0.13
     , aeson                >= 0.5
     , time
     , data-default
diff --git a/src/Instagram.hs b/src/Instagram.hs
--- a/src/Instagram.hs
+++ b/src/Instagram.hs
@@ -18,7 +18,7 @@
   ,User(..)
   ,UserCounts(..)
   ,Scope(..)
-  
+
   -- data
   ,Envelope(..)
   ,getNextPage
@@ -32,7 +32,7 @@
   ,Comment(..)
   ,Collection(..)
   ,NoResult
-  
+
   -- user
   ,UserID
   ,getUser
@@ -44,7 +44,7 @@
   ,getSelfLiked
   ,UserSearchParams(..)
   ,searchUsers
-  
+
   -- real time
   ,Aspect -- do not export constructor since only media is supported
   ,media
@@ -58,7 +58,7 @@
   ,DeletionParams(..)
   ,Update(..)
   ,verifySignature
-    
+
   -- Tags
   ,Tag(..)
   ,TagName
@@ -66,7 +66,7 @@
   ,RecentTagParams(..)
   ,getRecentTagged
   ,searchTags
-  
+
   -- relationships
    ,OutgoingStatus(..)
   ,IncomingStatus(..)
@@ -80,25 +80,26 @@
   ,getRelationship
   ,setRelationShip
   ,RelationShipAction(..)
-  
+
   -- media
   ,MediaID
   ,getMedia
   ,getPopularMedia
   ,MediaSearchParams(..)
   ,searchMedia
-  
+
   -- comments
   ,CommentID
   ,getComments
   ,postComment
   ,deleteComment
-  
+
   -- likes
   ,getLikes
+  , getLikesMaxId
   ,like
   ,unlike
-  
+
   -- locations
   ,LocationID
   ,getLocation
@@ -106,7 +107,7 @@
   ,getLocationRecentMedia
   ,LocationSearchParams(..)
   ,searchLocations
-  
+
   -- geographies
   ,GeographyID
   ,GeographyMediaParams(..)
@@ -138,5 +139,3 @@
 --  let d=eitherDecode t
 --  print (d::Either String (Envelope [Media]))
 --  return()
-  
-  
diff --git a/src/Instagram/Likes.hs b/src/Instagram/Likes.hs
--- a/src/Instagram/Likes.hs
+++ b/src/Instagram/Likes.hs
@@ -1,15 +1,17 @@
-{-# LANGUAGE FlexibleContexts #-}
+{-# LANGUAGE FlexibleContexts, OverloadedStrings #-}
 -- | Likes handling
 -- <http://instagram.com/developer/endpoints/likes/#>
 module Instagram.Likes (
   getLikes
+  ,getLikesMaxId
   ,like
   ,unlike
 )where
 
 import Instagram.Monad
 import Instagram.Types
-
+import Data.String
+import qualified Data.Text as T
 import qualified Network.HTTP.Types as HT
 
 
@@ -18,6 +20,15 @@
   -> Maybe OAuthToken
   -> InstagramT m (Envelope [User])
 getLikes mid token  =getGetEnvelopeM ["/v1/media/",mid,"/likes"] token ([]::HT.Query)
+
+getLikesMaxId :: (MonadBaseControl IO m, MonadResource m) => MediaID
+  -> Maybe UserID
+  -> Maybe OAuthToken
+  -> InstagramT m (Envelope [User])
+getLikesMaxId mid Nothing token  =getGetEnvelopeM ["/v1/media/",mid,"/likes"] token ([]::HT.Query)
+getLikesMaxId mid (Just maxUserId) token =
+  let maxid = (T.unpack maxUserId) :: String
+  in getGetEnvelopeM ["/v1/media/",mid,"/likes"] token ([("MAX_ID", Just $ fromString $ maxid)]::HT.Query)
 
 -- | Set a like on this media by the currently authenticated user.
 like ::     (MonadBaseControl IO m, MonadResource m) => MediaID
diff --git a/src/Instagram/Relationships.hs b/src/Instagram/Relationships.hs
--- a/src/Instagram/Relationships.hs
+++ b/src/Instagram/Relationships.hs
@@ -1,4 +1,4 @@
-{-# LANGUAGE FlexibleContexts #-}
+{-# LANGUAGE FlexibleContexts, OverloadedStrings #-}
 -- | relationship handling
 -- <http://instagram.com/developer/endpoints/relationships/#>
 module Instagram.Relationships (
@@ -17,6 +17,7 @@
 import Instagram.Types
 
 import Data.Typeable (Typeable)
+import Data.String
 
 import qualified Network.HTTP.Types as HT
 import Data.Char (toLower)
@@ -30,9 +31,13 @@
 
 -- | Get the list of users this user is followed by.
 getFollowedBy ::     (MonadBaseControl IO m, MonadResource m) => UserID
+  -> Maybe Int
   -> Maybe OAuthToken
   -> InstagramT m (Envelope [User])
-getFollowedBy uid token  =getGetEnvelopeM ["/v1/users/",uid,"/followed-by"] token ([]::HT.Query)
+getFollowedBy uid Nothing token  =getGetEnvelopeM ["/v1/users/",uid,"/followed-by"] token ([]::HT.Query)
+getFollowedBy uid (Just count) token  =getGetEnvelopeM ["/v1/users/",uid,"/followed-by"]
+                                                       token
+                                                       ([("count", Just $ fromString $ show count)]::HT.Query)
 
 data FollowParams = FollowParams {
     fpCount :: Int
diff --git a/src/Instagram/Types.hs b/src/Instagram/Types.hs
--- a/src/Instagram/Types.hs
+++ b/src/Instagram/Types.hs
@@ -43,6 +43,7 @@
 import Control.Applicative
 import Data.Text
 import Data.Typeable (Typeable)
+import Data.Data (Data)
 import Data.ByteString (ByteString)
 
 import Data.Aeson
@@ -60,7 +61,7 @@
   cClientID :: Text -- ^ client id
   ,cClientSecret :: Text -- ^ client secret
   }
-  deriving (Show,Read,Eq,Ord,Typeable)
+  deriving (Show,Read,Eq,Ord,Typeable, Data)
 
 -- | get client id in ByteString form
 clientIDBS :: Credentials -> ByteString
@@ -125,6 +126,7 @@
         , "profile_picture" .= uProfilePicture u
         , "website" .= uWebsite u
         , "bio" .= uBio u
+        , "counts" .= uCounts u 
         ]
 
 -- | from json as per Instagram format
@@ -373,7 +375,7 @@
       parseID :: Object -> Parser (Maybe LocationID)
       parseID obj=case HM.lookup "id" obj of
         Just (String s)->pure $ Just s
-        Just (Number n)->pure $ Just $ T.pack $ show n
+        Just (Number n)->pure $ Just $ T.pack $ show $ (round n :: Int)
         Nothing->pure Nothing
         _->fail "LocationID"
   parseJSON _= fail "Location"
@@ -640,4 +642,3 @@
 
 -- | geography ID
 type GeographyID = Text
-