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
 import Control.Monad.Reader
 import Control.Monad.State
 import Control.Arrow hiding ((<+>))
-import Control.DeepSeq
 import Debug.Trace
 
 import qualified Text.PrettyPrint.ANSI.Leijen as P
@@ -96,9 +95,6 @@ instance Monoid Doc where
     mempty = text ""
     mappend = dTwo mappend
 
-instance NFData Doc where
-    rnf x = rnf $ show x    -- TODO
-
 instance Show Doc where
     show = ($ "") . P.displayS . P.renderPretty 0.4 200 . renderDoc