Skip to content

Commit

Permalink
Merge pull request #148 from ford-prefect/statuscode-newtype
Browse files Browse the repository at this point in the history
Add a Newtype instance to StatusCode
  • Loading branch information
garyb committed Jun 7, 2020
2 parents 6c59582 + d5cf142 commit 3eb5119
Showing 1 changed file with 2 additions and 0 deletions.
2 changes: 2 additions & 0 deletions src/Affjax/StatusCode.purs
@@ -1,11 +1,13 @@
module Affjax.StatusCode where

import Prelude
import Data.Newtype (class Newtype)

newtype StatusCode = StatusCode Int

derive instance eqStatusCode :: Eq StatusCode
derive instance ordStatusCode :: Ord StatusCode
derive instance newtypeStatusCode :: Newtype StatusCode _

instance showStatusCode :: Show StatusCode where
show (StatusCode code) = "(StatusCode " <> show code <> ")"

0 comments on commit 3eb5119

Please sign in to comment.