From 5bfaf10de597af504e6d2784309e533b09a6451c Mon Sep 17 00:00:00 2001
From: hallgren <hallgren@chalmers.se>
Date: Fri, 28 Aug 2015 13:59:43 +0000
Subject: Comment out some dead code found with -fwarn-unused-binds

Also fixed some warnings and tightened some imports
---
 src/compiler/GF/JavaScript/PrintJS.hs | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

(limited to 'src/compiler/GF/JavaScript/PrintJS.hs')

diff --git a/src/compiler/GF/JavaScript/PrintJS.hs b/src/compiler/GF/JavaScript/PrintJS.hs
index 1e721e353..4a8976138 100644
--- a/src/compiler/GF/JavaScript/PrintJS.hs
+++ b/src/compiler/GF/JavaScript/PrintJS.hs
@@ -22,7 +22,7 @@ render d = rend 0 (map ($ "") $ d []) "" where
     t:ts@(t':_) | not (spaceBefore t') -> showString t . rend i ts
     t:ts -> space t . rend i ts
     []   -> id
-  new i   = showChar '\n' . replicateS (2*i) (showChar ' ') . dropWhile isSpace
+--new i   = showChar '\n' . replicateS (2*i) (showChar ' ') . dropWhile isSpace
   space t = showString t . (\s -> if null s then "" else (' ':s))
 
 spaceAfter :: String -> Bool
@@ -39,10 +39,10 @@ concatS = foldr (.) id
 
 concatD :: [Doc] -> Doc
 concatD = foldr (.) id
-
+{-
 replicateS :: Int -> ShowS -> ShowS
 replicateS n f = concatS (replicate n f)
-
+-}
 -- the printer class does the job
 class Print a where
   prt :: Int -> a -> Doc
-- 
cgit v1.2.3