jonsterling · June 29, 2011 17:39
diff --git a/test.hs b/test.hs
 module Test where

 import Data.Char

 testValue :: IO (Maybe String)
 testValue = Just `fmap` getLine

 pureExample :: String -> String
 pureExample (c:cs) = toUpper c : pureExample cs
 pureExample [] = []

 test = pureExample `comp` testValue
  where comp = fmap . fmap
	module Test where

	import Data.Char

	testValue :: IO (Maybe String)
	testValue = Just `fmap` getLine

	pureExample :: String -> String
	pureExample (c:cs) = toUpper c : pureExample cs
	pureExample [] = []

	test = pureExample `comp` testValue
	where comp = fmap . fmap
No results found