parseJournals :: Object -> Parser Journals
parseJournals = traverse $ \info -> 
  (,Nothing) <$> withText "" (return . T.unpack) info
  <|> withObject "expected json of form {journal,encrypt}" parseInfo info
  where parseInfo i = (,)
          <$> i .: "journal"
          <*> i .:? "encrypt"
parseJournals :: Object -> Parser Journals
parseJournals = traverse $ \info -> 
  (,Nothing) <$> withText "" (return . T.unpack) info
  <|> withObject "expected json of form {journal,encrypt}" parseInfo info
  where parseInfo i = (,)
          <$> i .: "journal"
          <*> i .:? "encrypt"
parseJournals = traverse $ \info -> 
  (,Nothing) <$> withText "" (return . T.unpack) info
  <|> withObject "expected json of form {journal,encrypt}" parseInfo info
  where parseInfo i = (,)
          <$> i .: "journal"
          <*> i .:? "encrypt"