Commit a9535df4 authored by Simon Peyton Jones's avatar Simon Peyton Jones
Browse files

Test Trac #4497

parent 1a3364bc
{-# LANGUAGE FlexibleContexts, MultiParamTypeClasses, TypeFamilies #-}
module T4497 where
norm2PropR a = twiddle (norm2 a) a
twiddle :: Normed a => a -> a -> Double
twiddle a b = undefined
norm2 :: e -> RealOf e
norm2 = undefined
class (Num (RealOf t)) => Normed t
type family RealOf x
......@@ -161,3 +161,4 @@ test('T4492', normal, compile, [''])
test('T4494', normal, compile, [''])
test('DataFamDeriv', normal, compile, [''])
test('T1769', normal, compile, [''])
test('T4497', normal, compile, [''])
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