loadJSON :: (FromJSON a) => FilePath -> IO a
loadJSON a = do
	x <- B.readFile a >>= return . decode
	case x of
		Nothing -> error $ "Cannot load from " ++ a
		Just y -> return y
loadJSON :: (FromJSON a) => FilePath -> IO a
loadJSON a = do
	x <- B.readFile a >>= return . decode
	case x of
		Nothing -> error $ "Cannot load from " ++ a
		Just y -> return y
loadJSON a = do
	x <- B.readFile a >>= return . decode
	case x of
		Nothing -> error $ "Cannot load from " ++ a
		Just y -> return y