{-
Right
  (Array
    [Object (fromList
       [("doc",Object (fromList
          [("_id",String "5fc18f253ae0ea2eb2b8da64460b4e34")
          ,("createdAt",String "2020-07-06T21:30:20.043414952+02:00")
          ,("_rev",String "1-8023c7d2658c3ea0dd06c98b6b831155")
          ,("humidity",Number 80.0)
          ,("temp",Number 9.7)
          ,("battery",Bool False)
          ,("type",String "tempSensor")
          ,("sensorId",Number 16.0)
          ]))
       ,("value",Null)
       ,("key",Array
         [String "tempSensor"
         ,Number 16.0
         ,String "2020-07-06T21:30:20.043414952+02:00"
         ])
       ,("id",String "5fc18f253ae0ea2eb2b8da64460b4e34")
    ])]
  ,Nothing)
-}

getSD = either
            (const Nothing)
            (\(r,_) ->
              case r of
                A.Array v ->
                  case v !? 0 of
                    Nothing -> Nothing
                    Just o' ->
                      case (o' ^? key "doc") of
                        Nothing -> Nothing
                        Just o ->
                          case A.fromJSON o of
                            A.Error _ -> Nothing
                            A.Success x -> Just x
                _ -> Nothing
            )