mirrors/IHaskell
1
0
Fork 0
mirror of https://github.com/IHaskell/IHaskell.git synced 2025-04-19 12:56:08 +00:00
Code Issues Packages Projects Releases Wiki Activity

Removing IHaskellDisplay instance for DecsQ.

Browse Source
This commit is contained in:
Andrew Gibiansky 2015-01-10 22:28:18 -07:00
parent 0fa0b2105e
commit 66c603b3cd
1 changed files with 0 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
src/IHaskell/Display.hs
View File

@ -45,7 +45,6 @@ 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,12 +77,6 @@ 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