weedFields :: [Field] -> WeedError
weedFields fields = msum $ map weedField fields
weedFields :: [Field] -> WeedError
weedFields fields = msum $ map weedField fields
weedFields fields = msum $ map weedField fields