diff --git a/CHANGES.txt b/CHANGES.txt
--- a/CHANGES.txt
+++ b/CHANGES.txt
@@ -1,5 +1,8 @@
 Changelog for HLint
 
+1.9.37
+    #255, don't suggest id @Int ==> @Int
+    #252, avoid clashes with GHCJS in the interim
 1.9.36
     Require haskell-src-exts-1.18
     #249, suggest avoiding elem on singletons
diff --git a/data/Default.hs b/data/Default.hs
--- a/data/Default.hs
+++ b/data/Default.hs
@@ -228,6 +228,7 @@
 hint = (\x -> y) ==> const y where _ = isAtom y && not (isWildcard y)
 warn "Redundant flip" = flip f x y ==> f y x where _ = isApp original
 warn "Evaluate" = id x ==> x
+    where _ = not (isTypeApp x)
 warn "Redundant id" = id . x ==> x
 warn "Redundant id" = x . id ==> x
 
@@ -707,6 +708,8 @@
 foo = zipWith SymInfo [0 ..] (repeat ty) -- map (\ x -> SymInfo x ty) [0 ..]
 f rec = rec
 mean x = fst $ foldl (\(m, n) x' -> (m+(x'-m)/(n+1),n+1)) (0,0) x
+foo = id @Int
+foo = id 12 -- 12
 
 import Prelude \
 yes = flip mapM -- Control.Monad.forM
diff --git a/hlint.cabal b/hlint.cabal
--- a/hlint.cabal
+++ b/hlint.cabal
@@ -1,7 +1,7 @@
 cabal-version:      >= 1.8
 build-type:         Simple
 name:               hlint
-version:            1.9.36
+version:            1.9.37
 license:            BSD3
 license-file:       LICENSE
 category:           Development
diff --git a/src/CmdLine.hs b/src/CmdLine.hs
--- a/src/CmdLine.hs
+++ b/src/CmdLine.hs
@@ -17,7 +17,7 @@
 import Language.Haskell.Exts.Extension
 import Data.Maybe
 import System.Environment
-import System.Info.Extra
+import qualified System.Info.Extra as Info
 
 import Util
 import Paths_hlint
@@ -66,7 +66,7 @@
 
 
 instance Default ColorMode where
-  def = if isWindows then Never else Auto
+  def = if Info.isWindows then Never else Auto
 
 
 data Cmd