Commit 1ae45de6 authored by Bas Lijnse's avatar Bas Lijnse

Removed + instance on strings, conflicts with (exact same) definition in Text from clean-platform

parent f3ab2b0b
...@@ -14,7 +14,7 @@ definition module Gast.GenLibTest ...@@ -14,7 +14,7 @@ definition module Gast.GenLibTest
import StdGeneric, GenEq import StdGeneric, GenEq
import StdClass import StdClass
instance + String //instance + String
(@@) infixl 2 :: (a->b) a -> b (@@) infixl 2 :: (a->b) a -> b
(@@!)infixl 2 :: (a->b) !a -> b (@@!)infixl 2 :: (a->b) !a -> b
......
...@@ -13,8 +13,6 @@ implementation module Gast.GenLibTest ...@@ -13,8 +13,6 @@ implementation module Gast.GenLibTest
import StdEnv, StdGeneric, GenEq import StdEnv, StdGeneric, GenEq
instance + String where (+) s t = s +++ t
(@@)infixl 2 :: (a->b) a -> b (@@)infixl 2 :: (a->b) a -> b
(@@) f x = f x (@@) f x = f x
...@@ -100,7 +98,7 @@ where ...@@ -100,7 +98,7 @@ where
glue [x:xs] glue [x:xs]
= case xs of = case xs of
[] = x [] = x
= x+glue xs = x+++glue xs
//--- comparision ---// //--- comparision ---//
/* /*
......
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