fix Command.hs: pattern match