error' :: Status -> Decision'
error' s = Error' s (LB.fromStrict $ statusMessage s)
error' :: Status -> Decision'
error' s = Error' s (LB.fromStrict $ statusMessage s)
error' s = Error' s (LB.fromStrict $ statusMessage s)