Commit 55976aa1 authored by simonpj's avatar simonpj
Browse files

Test for Trac #3382

parent 2723f3ca
{-# OPTIONS_GHC -XOverloadedStrings #-}
module Main where
import Data.String
instance IsString Int where
fromString x = 1337
f :: Int -> String
f "hello" = "correct"
f _ = "false"
main = do print $ f 1337
print $ f 1338
......@@ -28,3 +28,4 @@ test('dsrun022', normal, compile_and_run, [''])
test('dsrun023', normal, compile_and_run, [''])
test('T246', normal, compile_and_run, [''])
test('T3126', normal, compile_and_run, [''])
test('T3382', normal, compile_and_run, [''])
Supports Markdown
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