-- > [("Location", "http://example.net/")]
-- > "It has been moved to example.net"
data Abortion = Abortion {
- aboStatus ∷ !StatusCode
+ aboStatus ∷ !SomeStatusCode
, aboHeaders ∷ !Headers
, aboMessage ∷ !(Maybe Text)
} deriving (Eq, Show, Typeable)