input max size bug

gistfile1.txt

import Prelude
import System.IO
import System.Process
import Control.Applicative
import Control.Monad.IO.Class
import Data.Monoid
import System.Environment


main :: IO ()
main = do
    args <- getArgs
    fromFile <- drainFifo $ head args
    print fromFile

-- we use drainFifo instead of a normal readFile because Haskell's non-blocking IO treats FIFOs wrong
drainFifo :: FilePath -> IO String
drainFifo f = do
    (i, out, e, p) <- runInteractiveProcess "bash" ["-c", "exec cat<"  <>  f] Nothing (Just [])
    hClose i
    hClose e
    hSetBinaryMode out False
    contents <- hGetContents out <* waitForProcess p
    return contents