meapOptions :: ClassPath -> Chain.Options
meapOptions classPath =
    Chain.defaultOptions {
        segmenter = Segmenter.defaultOptions {
            Segmenter.classPath = classPath
          , Segmenter.outputHandler = outputHandler
          , Segmenter.segmentation = Segmenter.Onset
          , Segmenter.smoothingWindow = 0.01
        }
      , extractor = Extractor.defaultOptions {
            Extractor.classPath = classPath
          , Extractor.outputHandler = outputHandler
          , Extractor.windowSize = 1024
          , Extractor.hopSize = 512
          , Extractor.features  = map fst meapFeatures } }
    where
        -- outputHandler = OutputHandler (Log.noticeM "Database") (Log.errorM "Database")
        outputHandler = defaultOutputHandler
meapOptions :: ClassPath -> Chain.Options
meapOptions classPath =
    Chain.defaultOptions {
        segmenter = Segmenter.defaultOptions {
            Segmenter.classPath = classPath
          , Segmenter.outputHandler = outputHandler
          , Segmenter.segmentation = Segmenter.Onset
          , Segmenter.smoothingWindow = 0.01
        }
      , extractor = Extractor.defaultOptions {
            Extractor.classPath = classPath
          , Extractor.outputHandler = outputHandler
          , Extractor.windowSize = 1024
          , Extractor.hopSize = 512
          , Extractor.features  = map fst meapFeatures } }
    where
        -- outputHandler = OutputHandler (Log.noticeM "Database") (Log.errorM "Database")
        outputHandler = defaultOutputHandler
meapOptions classPath =
    Chain.defaultOptions {
        segmenter = Segmenter.defaultOptions {
            Segmenter.classPath = classPath
          , Segmenter.outputHandler = outputHandler
          , Segmenter.segmentation = Segmenter.Onset
          , Segmenter.smoothingWindow = 0.01
        }
      , extractor = Extractor.defaultOptions {
            Extractor.classPath = classPath
          , Extractor.outputHandler = outputHandler
          , Extractor.windowSize = 1024
          , Extractor.hopSize = 512
          , Extractor.features  = map fst meapFeatures } }
    where
        -- outputHandler = OutputHandler (Log.noticeM "Database") (Log.errorM "Database")
        outputHandler = defaultOutputHandler