{-# LANGUAGE NoImplicitPrelude #-} module Case where import Language.Fay.FFI import Language.Fay.Prelude main = print (case True of True -> "Hello!" False -> "Ney!") print :: String -> Fay () print = ffi "console.log(%1)"