String conversion in polymorphic ffi functions

[andrey013]

I would like logged strings to be the same.

{-# LANGUAGE NoImplicitPrelude #-}
module String where

import Prelude
import FFI

print' :: String -> Fay ()
print' = ffi "console.log(\"\"+%1)"

print'' :: a -> Fay ()
print'' = ffi "console.log(\"\"+%1)"

print''' :: Automatic a -> Fay ()
print''' = ffi "console.log(\"\"+%1)"

main :: Fay ()
main = do
    let s = "hello"
    print' s    -- hello
    print'' s   -- [object Object]
    print''' s  -- [object Object]

#185 may be relevant since:

print :: Automatic a -> Fay ()
print = ffi "(function(x) { if (console && console.log) console.log(x) })(%1)"

putStrLn :: String -> Fay ()
putStrLn = ffi "(function(x) { if (console && console.log) console.log(x) })(%1)"

[bergmark]

A little sad but I think this won't work. If we run across [] or null (an empty fay list) there is no way to know if the value should be treated as String or [a].

[bergmark]

I'll close this. Don't do polymorphic serialiations on [Char] . Use Fay.Text instead.