diff --git a/src/Owner.hs b/src/Owner.hs index 029ad4e..867f923 100644 --- a/src/Owner.hs +++ b/src/Owner.hs @@ -366,7 +366,7 @@ instance ToJSON OwnerSettings where , "expiration" .= e , "payconf" .= pc , "crmToken" .= cT - , "viewkey" .= (T.take 5 vK <> "...." <> T.takeEnd 5 vK) + , "viewkey" .= (T.take 8 vK <> "...." <> T.takeEnd 8 vK) ] -- Helper Functions