diff options
author | Péter Diviánszky <divipp@gmail.com> | 2016-05-12 22:34:36 +0200 |
---|---|---|
committer | Péter Diviánszky <divipp@gmail.com> | 2016-05-12 22:34:36 +0200 |
commit | 5e8656f3e3f169c62defc2d8573c66a679c4757e (patch) | |
tree | dcef816f86976dac319faeede3c40de0abeb689d /src/LambdaCube/Compiler/Pretty.hs | |
parent | 4460e137aaea9edf282de7e363f12507eacdc8a4 (diff) |
remove deepseq from compiler lib dependencies
Diffstat (limited to 'src/LambdaCube/Compiler/Pretty.hs')
-rw-r--r-- | src/LambdaCube/Compiler/Pretty.hs | 4 |
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 | |||
24 | import Control.Monad.Reader | 24 | import Control.Monad.Reader |
25 | import Control.Monad.State | 25 | import Control.Monad.State |
26 | import Control.Arrow hiding ((<+>)) | 26 | import Control.Arrow hiding ((<+>)) |
27 | import Control.DeepSeq | ||
28 | import Debug.Trace | 27 | import Debug.Trace |
29 | 28 | ||
30 | import qualified Text.PrettyPrint.ANSI.Leijen as P | 29 | import 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 | ||
99 | instance NFData Doc where | ||
100 | rnf x = rnf $ show x -- TODO | ||
101 | |||
102 | instance Show Doc where | 98 | instance 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 | ||