checkSignable :: CSR -> Maybe Text
checkSignable csr =
  case csr ^. requestStatus of
    Rejected   -> Just "This CSR is rejected and can not be signed"
    Signed csr -> Just "This CSR is already signed"
    Pending    -> Nothing
checkSignable :: CSR -> Maybe Text
checkSignable csr =
  case csr ^. requestStatus of
    Rejected   -> Just "This CSR is rejected and can not be signed"
    Signed csr -> Just "This CSR is already signed"
    Pending    -> Nothing
checkSignable csr =
  case csr ^. requestStatus of
    Rejected   -> Just "This CSR is rejected and can not be signed"
    Signed csr -> Just "This CSR is already signed"
    Pending    -> Nothing