Skip to content

Use Data.Generic.Rep #4

New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

Sign up for GitHub

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

Closed
coot wants to merge 1 commit into from
Closed

Use Data.Generic.Rep #4

Show file tree
Hide file tree
Changes from all commits
Commits
Show all changes
1 commit
Select commit
File filter

Filter by extension

Filter by extension
Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
2 changes: 1 addition & 1 deletion bower.json
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -17,6 +17,6 @@
"package.json"
],
"dependencies": {
"purescript-generics": "^4.0.0"
"purescript-generics-rep": "^5.3.0"
}
}
6 changes: 3 additions & 3 deletions src/Data/HTTP/Method.purs
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -9,7 +9,7 @@ module Data.HTTP.Method
import Prelude

import Data.Either (Either(..), either)
import Data.Generic (class Generic)
import Data.Generic.Rep (class Generic)
import Data.String as Str

data Method
Expand Down Expand Up @@ -37,7 +37,7 @@ data Method

derive instance eqMethod :: Eq Method
derive instance ordMethod :: Ord Method
derive instance genericMethod :: Generic Method
derive instance genericMethod :: Generic Method _

instance showMethod :: Show Method where
show OPTIONS = "OPTIONS"
Expand All @@ -64,7 +64,7 @@ unCustomMethod (CustomMethod m) = m

derive instance eqCustomMethod :: Eq CustomMethod
derive instance ordCustomMethod :: Ord CustomMethod
derive instance genericCustomMethod :: Generic CustomMethod
derive instance genericCustomMethod :: Generic CustomMethod _

instance showCustomMethod :: Show CustomMethod where
show (CustomMethod m) = "(CustomMethod " <> show m <> ")"
Expand Down