module Haste.PasteProviders.Console
  ( Console (..)
  ) where

import Haste.Post
import Haste.Types
import Haste.Monad

data Console = Console
  deriving Show

instance PasteProvider Console where

  paste _ text = do
    liftIO $ putStrLn text
    return ""