Commit 04328477 authored by Simon Marlow's avatar Simon Marlow
Browse files

Add test for #782

parent 1d01ed55
......@@ -38,3 +38,4 @@ test('ghci025', normal, ghci_script, ['ghci025.script'])
test('ghci026', namebase_if_compiler_lt('ghc','6.9', 'ghci026-6.8'), ghci_script, ['ghci026.script'])
test('ghci027', normal, ghci_script, ['ghci027.script'])
test('ghci028', normal, ghci_script, ['ghci028.script'])
-- Testing that script input is interpreted at UTF-8
:set -XUnicodeSyntax -XRankNTypes
let (∘) :: ∀ α β γ . (β → γ) → (α → β) → (α → γ); (f ∘ g) x = f (g x)
reverse ∘ map Data.Char.toUpper $ "fish"
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment