fay-0.9.2.0: tests/case.hs

{-# 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)"