-class Foo a where\r
- (+) :: a -> a -> a\r
-\r
-instance Foo Double where\r
- infix 3 (+)\r
- x + y = x\r
---\r
+class Foo a where
+ (+) :: a -> a -> a
+
+instance Foo Double where
+ infix 3 (+)
+ x + y = x
+--
5:5-5:16: Invalid declaration under instance definition.
\ No newline at end of file