summaryrefslogtreecommitdiff
path: root/src/LambdaCube/Compiler/Pretty.hs
diff options
context:
space:
mode:
authorPéter Diviánszky <divipp@gmail.com>2016-05-12 22:34:36 +0200
committerPéter Diviánszky <divipp@gmail.com>2016-05-12 22:34:36 +0200
commit5e8656f3e3f169c62defc2d8573c66a679c4757e (patch)
treedcef816f86976dac319faeede3c40de0abeb689d /src/LambdaCube/Compiler/Pretty.hs
parent4460e137aaea9edf282de7e363f12507eacdc8a4 (diff)
remove deepseq from compiler lib dependencies
Diffstat (limited to 'src/LambdaCube/Compiler/Pretty.hs')
-rw-r--r--src/LambdaCube/Compiler/Pretty.hs4
1 files changed, 0 insertions, 4 deletions
diff --git a/src/LambdaCube/Compiler/Pretty.hs b/src/LambdaCube/Compiler/Pretty.hs
index 204e4893..0dd09107 100644
--- a/src/LambdaCube/Compiler/Pretty.hs
+++ b/src/LambdaCube/Compiler/Pretty.hs
@@ -24,7 +24,6 @@ import Control.Monad.Identity
24import Control.Monad.Reader 24import Control.Monad.Reader
25import Control.Monad.State 25import Control.Monad.State
26import Control.Arrow hiding ((<+>)) 26import Control.Arrow hiding ((<+>))
27import Control.DeepSeq
28import Debug.Trace 27import Debug.Trace
29 28
30import qualified Text.PrettyPrint.ANSI.Leijen as P 29import qualified Text.PrettyPrint.ANSI.Leijen as P
@@ -96,9 +95,6 @@ instance Monoid Doc where
96 mempty = text "" 95 mempty = text ""
97 mappend = dTwo mappend 96 mappend = dTwo mappend
98 97
99instance NFData Doc where
100 rnf x = rnf $ show x -- TODO
101
102instance Show Doc where 98instance Show Doc where
103 show = ($ "") . P.displayS . P.renderPretty 0.4 200 . renderDoc 99 show = ($ "") . P.displayS . P.renderPretty 0.4 200 . renderDoc
104 100