ModuleTwo.modified.hs

module ModuleTwo (
	untypedFoo,
	twice,
	overloadedStrings,
	useUntypedFoo
	) where

import ModuleOne (untypedFoo)

import Data.String

-- | Apply function twice
twice :: (a -> a) -> a -> a
twice f = f . f

data MyString = MyString String

instance IsString MyString where
	fromString = MyString

overloadedStrings :: MyString
overloadedStrings = "Hello"

useUntypedFoo :: Int -> Int -> Int
useUntypedFoo x y = untypedFoo x (untypedFoo x x)