haskell-src-exts-1.24.0: tests/examples/UnicodeArrow.hs

{-# LANGUAGE UnicodeSyntax #-}

arrowTest ∷ String →   String
arrowTest input =
    case input of
      "hello" → "world"
      "world" → "hello"
      otherwise → "unknow"