module Renaming.B1 (myFringe) where import Renaming.D1 hiding (sumSquares) import qualified Renaming.D1 instance SameOrNot Float where isSame a b = a ==b isNotSame a b = a /=b myFringe:: AnotherTree a -> [a] myFringe (Leaf x ) = [x] myFringe (Branch left right) = myFringe right sumSquares (x:xs)= x^2 + sumSquares xs sumSquares [] =0