transposetab.hs

-----------------------------------------------------------------------------
-- |
-- Module      :  transposetab
-- Copyright   :  (c) Keith Sheppard 2009-2010
-- License     :  BSD3
-- Maintainer  :  keithshep@gmail.com
-- Stability   :  experimental
-- Portability :  portable
--
-- Transpose a tab-delimited file
--
-----------------------------------------------------------------------------
import Data.List
import System.Environment

import Database.TxtSushi.FlatFile
import Database.TxtSushi.IOUtil

main :: IO ()
main = do
    args <- getArgs
    
    case args of
        [fileArg] -> do
            contents <- getContentsFromFileOrStdin fileArg
            
            let table = transpose . parseTable tabDelimitedFormat $ contents
                tabText = formatTable tabDelimitedFormat table
            putStr tabText
        
        -- we were expecting a single file name arg
        _ -> printSingleFileUsage