@@ -42,8 +42,13 @@ module Prelude where
4242 class Show a where
4343 show :: a -> String
4444
45+ foreign import showStringImpl
46+ "function showStringImpl(s) {\
47+ \ return JSON.stringify(s);\
48+ \}" :: String -> String
49+
4550 instance showString :: Show String where
46− show s = s
51+ show = showStringImpl
4752
4853 instance showBoolean :: Show Boolean where
4954 show true = "true"