oi-0.2.0.1: sample/catsOI.hs

{-# LANGUAGE TypeOperators #-}
module Main where

import Data.OI hiding (openFile)
import System.IO (IOMode (..), Handle)
import qualified System.IO as IO
import Prelude hiding (readFile, writeFile)

main :: IO ()
main = runInteraction pmain

pmain 
  :: (([String],Either ((Handle, String), [(Handle, String)]) [(Handle, String)]), (Handle, ()))
  :-> ()
pmain = args 
    |/| choiceOIOn (const $ lines . readFile "files" |/| zipWithOI readFile) 
                   (zipWithOI readFile)
                   null
    |/| writeFile "output.txt" . concatMap textproc

textproc :: String -> String
textproc = id -- unlines . take 1 . lines

readFile :: FilePath -> (Handle, String) :-> String
readFile f      = openFile f ReadMode   |/| hGetContents

writeFile :: FilePath -> String -> (Handle, ()) :-> ()
writeFile f cs  = openFile f WriteMode  |/| flip hPutStr cs

openFile :: FilePath -> IOMode -> Handle :-> Handle
openFile     = (iooi .) . IO.openFile

hGetContents :: Handle -> String :-> String
hGetContents = iooi . IO.hGetContents

hPutStr :: Handle -> String -> () :-> ()
hPutStr      = (iooi .) . IO.hPutStr