freesound-0.2.0: test/Sound/Freesound/Test.hs

module Sound.Freesound.Test (
  fs
) where

import Sound.Freesound
import System.Environment (getEnv)

fs :: Freesound a -> IO a
fs a = flip runFreesound a =<< apiKeyFromString `fmap` getEnv "FREESOUND_API_KEY"