getApiFromSettings :: IO (Maybe HabiticaApiKey)
getApiFromSettings = do
   sing <- readSettings
   many <- readMultiSettings
   return $ settingsToKey <$> (sing <|> listToMaybe many)
getApiFromSettings :: IO (Maybe HabiticaApiKey)
getApiFromSettings = do
   sing <- readSettings
   many <- readMultiSettings
   return $ settingsToKey <$> (sing <|> listToMaybe many)
getApiFromSettings = do
   sing <- readSettings
   many <- readMultiSettings
   return $ settingsToKey <$> (sing <|> listToMaybe many)