getAllApisFromSettings :: IO [HabiticaApiKey]
getAllApisFromSettings = do
   sing <- readSettings
   many <- readMultiSettings
   return $ settingsToKey <$> (maybeToList sing ++ many)
getAllApisFromSettings :: IO [HabiticaApiKey]
getAllApisFromSettings = do
   sing <- readSettings
   many <- readMultiSettings
   return $ settingsToKey <$> (maybeToList sing ++ many)
getAllApisFromSettings = do
   sing <- readSettings
   many <- readMultiSettings
   return $ settingsToKey <$> (maybeToList sing ++ many)