haste-0.1: src/Haste/PasteProviders.hs

module Haste.PasteProviders
  ( defaultProvider
  , lookupProvider
  , pasteProviders
  ) where

import Haste.Types
import Haste.PasteProviders.All (pasteProviders)

defaultProvider :: SomePasteProvider
defaultProvider = head pasteProviders

lookupProvider :: String -> Maybe SomePasteProvider
lookupProvider option = lookup option byName
  where byName = map optionName pasteProviders `zip` pasteProviders