mxswd · July 26, 2012 08:43
diff --git a/gistfile1.hs b/gistfile1.hs
 import Data.Yaml
 import qualified Data.Map as M

 main = do
          Just f <- decodeFile "programs.yml"
          let Just x = M.lookup "SENG" f
          case x of
            Nothing -> fail "InvalidFile"
            Just a -> putStrLn a
diff --git a/programs.yml b/programs.yml
 ---
 SENG:
  - COMP9001
  - COMP8001
  - SENG1031
	import Data.Yaml
	import qualified Data.Map as M

	main = do
	Just f <- decodeFile "programs.yml"
	let Just x = M.lookup "SENG" f
	case x of
	Nothing -> fail "InvalidFile"
	Just a -> putStrLn a
No results found