hackernews 0.1.0.0 → 0.1.0.1

raw patch · 3 files changed

+5/−5 lines, 3 filesPVP: major bump suggested

API removals or changes: PVP suggests a major version bump

API changes (from Hackage documentation)

- Web.HackerNews: User :: Text -> UTCTime -> Int -> UserId -> Int -> [Int] -> User

+ Web.HackerNews: User :: Maybe Text -> UTCTime -> Int -> UserId -> Int -> [Int] -> User

- Web.HackerNews: userAbout :: User -> Text

+ Web.HackerNews: userAbout :: User -> Maybe Text

hackernews.cabal view

@@ -1,5 +1,5 @@ name:                hackernews-version:             0.1.0.0+version:             0.1.0.1 description:         API for news.ycombinator.com license:             MIT synopsis:            API for Hacker News

src/Web/HackerNews.hs view

@@ -67,7 +67,7 @@ getMaxItem = getItem "maxitem"  --------------------------------------------------------------------------------- | Retrieve the largest ItemId+-- | Retrieve the latest updates getUpdates :: IO (Maybe Update) getUpdates = getItem "updates"

src/Web/HackerNews/User.hs view

@@ -4,7 +4,7 @@ import           Control.Applicative ((<*>), (<$>)) import           Control.Monad       (MonadPlus (mzero)) import           Data.Aeson          (FromJSON (parseJSON), Value (Object),-                                      (.:))+                                      (.:), (.:?)) import           Data.Text           (Text) import           Data.Time           (UTCTime) @@ -13,7 +13,7 @@ ------------------------------------------------------------------------------ -- | Types data User = User {-    userAbout     :: Text+    userAbout     :: Maybe Text   , userCreated   :: UTCTime   , userDelay     :: Int   , userId        :: UserId@@ -29,7 +29,7 @@ -- | JSON Instances instance FromJSON User where   parseJSON (Object o) =-     User <$> o .: "about"+     User <$> o .:? "about"           <*> (fromSeconds <$> o .: "created")           <*> o .: "delay"           <*> (UserId <$> o .: "id")