Merge pull request #332 from cje/decsInstance

Add IHaskell.Display.IHaskellDisplay instance for DecsQ

src/IHaskell/Display.hs

@@ -45,7 +45,7 @@ import Data.String.Utils (rstrip)
 import qualified Data.ByteString.Base64 as Base64
 import qualified Data.ByteString.Char8 as Char
 import Data.Aeson (Value)
-
+import Language.Haskell.TH as TH 
 import System.Directory(getTemporaryDirectory, setCurrentDirectory)
 
 import Control.Concurrent.STM.TChan
@@ -78,6 +78,12 @@ instance IHaskellDisplay a => IHaskellDisplay [a] where
     displays <- mapM display disps
     return $ ManyDisplay displays
 
+instance IHaskellDisplay TH.DecsQ where
+  display decl = do    r <- TH.runQ decl
+                       let t = TH.pprint r
+                       let dd = DisplayData PlainText $ pack t
+                       display dd
+
 -- | Encode many displays into a single one. All will be output.
 many :: [Display] -> Display
 many = ManyDisplay