diff --git a/src/Owner.hs b/src/Owner.hs index bda88ec..f426636 100644 --- a/src/Owner.hs +++ b/src/Owner.hs @@ -320,7 +320,7 @@ instance Val ZGoProSession where cast' (Doc d) = do i <- B.lookup "_id" d a <- B.lookup "address" d - e <- B.lookup "expiraton" d + e <- B.lookup "expiration" d p <- B.lookup "closed" d Just (ZGoProSession i a e p) cast' _ = Nothing