From 1774f95a5c658cea2850e54c7cb164f4ad62e58d Mon Sep 17 00:00:00 2001
From: Gregor Kleen <gkleen@yggdrasil.li>
Date: Tue, 1 Mar 2016 10:34:06 +0100
Subject: jobContent

---
 tprint/src/Main.hs | 9 +++++++++
 1 file changed, 9 insertions(+)

(limited to 'tprint/src/Main.hs')

diff --git a/tprint/src/Main.hs b/tprint/src/Main.hs
index 44cc2f6..f0f0186 100644
--- a/tprint/src/Main.hs
+++ b/tprint/src/Main.hs
@@ -7,6 +7,7 @@ import Data.Sequence (Seq)
 import qualified Data.Sequence as Seq
 import Data.Text (Text)
 import qualified Data.Text as T
+import qualified Data.Text.IO as T
 import qualified Data.ByteString.Lazy.Char8 as Lazy (ByteString)
 import qualified Data.ByteString.Lazy.Char8 as LCBS
 import Data.Time
@@ -15,14 +16,17 @@ import Data.Foldable
 import Data.List
 import Data.Monoid
 import Data.Maybe
+import Data.Either
 
 import Control.Monad
+import Control.Monad.Catch
 
 import Text.Show.Pretty (dumpStr)
 import Data.Aeson.Encode.Pretty (encodePretty)
 
 import System.IO
 
+import Thermoprint.Printout.BBCode
 import Thermoprint.Client
 import Options
 
@@ -67,6 +71,11 @@ tprint TPrint{ operation = Drafts, ..} Client{..} out = drafts >>= format
           | (Human, _) <- output = mapM_ (\(DraftId n, fromMaybe "" . fmap T.unpack -> t) -> hPutStrLn out $ show n ++ "\t" ++ t) $ Map.toAscList ds
           | (JSON, _) <- output = LCBS.hPutStrLn out $ encodePretty ds
           | otherwise = hPutStrLn out . dumpStr $ Map.toAscList ds
+        
+tprint TPrint{ operation = Job{..}, ..} Client{..} out = job jobId >>= format
+  where format p
+          | (JSON, _) <- output = LCBS.hPutStrLn out $ encodePretty p
+          | otherwise <- output = T.hPutStrLn out =<< either throwM return (cobbcode p)
 
 
 tprint _ _ _ = undefined
-- 
cgit v1.2.3