For some reason i is always 0

gistfile1.txt

filePathPipe :: MonadIO m => Pipe a a m ()
filePathPipe = filePathPipe2 0 where
    filePathPipe2 i = do
        x <- await
        yield x
        liftIO $ putStrLn $ show i
        if (i `mod` 10 == 0)
            then do
                liftIO $ putStrLn "TEN"
                filePathPipe2 (i+1)
            else filePathPipe2 (i+1)