airtable-api 0.3.2.2 → 0.3.2.3

raw patch · 2 files changed

+22/−15 lines, 2 filesPVP: minor bump suggested

API additions: PVP suggests at least a minor version bump

API changes (from Hackage documentation)

Files

• airtable-api.cabal +1/−1
• src/Airtable/Table.hs +21/−14

@@ -1,5 +1,5 @@ name:                airtable-api-version:             0.3.2.2+version:             0.3.2.3 synopsis:            Requesting and introspecting Tables within an Airtable project. -- description: homepage:            https://github.com/ooblahman/airtable-api

@@ -18,6 +18,8 @@     , Table(..)     , TableName     -- * Table methods+    , fromRecords+    , fromList     , toList     , exists     , select@@ -110,33 +112,38 @@ data Table a = Table    { tableRecords :: Map.HashMap RecordID (Record a) -- ^ A mapping from RecordID to Record   , tableOffset :: Maybe Text -- ^ The "offset" parameter for the table. Is used to deal with airtable's pagination.-  } deriving-  ( Show-  , Read-  , Eq-  , Generic-  , Functor-  )+  } deriving ( Show+             , Read+             , Eq+             , Generic+             , Functor+             )  -- | Synonym used in querying tables from the API. type TableName = String  instance (FromJSON a) => FromJSON (Table a) where   parseJSON = withObject "table object" $ \v -> do-    recs <- v .: "records" :: Parser [Value]-    parsedRecs <- foldlM parseRec Map.empty recs+    recs <- v .: "records"      offset <- v .:? "offset"-    return $ Table parsedRecs offset-    where-      parseRec tbl v = do  -        rec <- parseJSON v-        return $ Map.insert (recordId rec) rec tbl+    return $ (fromRecords recs) { tableOffset = offset }  instance Monoid (Table a) where   mempty = Table mempty Nothing   mappend (Table t1 o) (Table t2 _) = Table (mappend t1 t2) o  -- * Table methods++-- | Create a `Table` from a list of `Record`s.+fromRecords :: [Record a] -> Table a+fromRecords recs = fromList $ zip (map recordId recs) recs++-- | Create a table from a list of key-record pairs.+fromList :: [(RecordID, Record a)] -> Table a+fromList pairs = Table+  { tableRecords = Map.fromList pairs +  , tableOffset = Nothing+  }  -- | Convert a 'Table' to a list of key-record pairs. toList :: Table a -> [(RecordID, Record a)]