editor-open-0.4.0.0: tests/test_yaml_file_conduit.hs

-- Copyright 2015 Peter Harpending
-- 
-- Licensed under the Apache License, Version 2.0 (the "License"); you
-- may not use this file except in compliance with the License.  You
-- may obtain a copy of the License at
-- 
--     http://www.apache.org/licenses/LICENSE-2.0
-- 
-- Unless required by applicable law or agreed to in writing, software
-- distributed under the License is distributed on an "AS IS" BASIS,
-- WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or
-- implied.  See the License for the specific language governing
-- permissions and limitations under the License.


-- | 
-- Module      : Main
-- Description : Test of editor-open
-- Copyright   : Copyright 2015 Peter Harpending
-- License     : Apache-2.0
-- Maintainer  : Peter Harpending <peter@harpending.org>
-- Stability   : experimental
-- Portability : POSIX
-- 

module Main where

import Control.Monad.Trans.Resource (runResourceT)
import qualified Data.ByteString.Lazy as B
import Data.Conduit (connect, toConsumer, toProducer)
import Data.Conduit.Binary
       (sinkHandle, sinkLbs, sourceFile, sourceLbs)
import Paths_editor_open (getDataFileName)
import System.Exit (ExitCode(..))
import System.IO (stdout)
import Text.Editor (bracketConduit, plainTemplate)

main :: IO ()
main =
  do schemaFP <-
       getDataFileName "res/bug-schema.yaml"
     (exitCode,result) <-
       runResourceT
         (bracketConduit plainTemplate
                         (toProducer (sourceFile schemaFP))
                         (toConsumer sinkLbs))
     case exitCode of
       ExitSuccess -> connect (sourceLbs result) (sinkHandle stdout)
       ExitFailure i ->
         fail (mappend "Editor process failed with exit code " (show i))