Fixed flag function
Merge remote-tracking branch 'origin/master'

Conflicts:
	main.hs