instance FromJSON Database where
-  parseJSON (Object o) = Database
-    <$> o .: "id"
-    <*> o .: "_rid"
-    <*> o .: "_ts"
-    <*> o .: "_self"
-    <*> o .: "_etag"
-    <*> o .: "_colls"
-    <*> o .: "_users"
+  parseJSON (Object o) =
+    Database <$> o .: "id" <*> o .: "_rid" <*> o .: "_ts" <*> o .: "_self" <*> o .: "_etag" <*> o .: "_colls" <*>
+    o .: "_users"
   parseJSON _ = mempty