fay-0.9.2.0: tests/caseList.hs

{-# LANGUAGE NoImplicitPrelude #-}

module CaseList where

import           Language.Fay.FFI
import           Language.Fay.Prelude

main = print (case [1,2,3,4,5] of
  [1,2,3,4,6] -> "6!"
  [1,2,4,2,4] -> "a!"
  [1,2,3,4,5] -> "OK."
  _           -> "Broken.")

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