Skip to content
This repository was archived by the owner on Oct 4, 2020. It is now read-only.

Fix Ordering generic instance #37

Merged
merged 1 commit into from
Jul 7, 2016
Merged

Fix Ordering generic instance #37

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
6 changes: 3 additions & 3 deletions src/Data/Generic.purs
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -159,9 +159,9 @@ instance genericOrdering :: Generic Ordering where
, { sigConstructor: "Data.Ordering.GT", sigValues: [] }
]
fromSpine = case _ of
SProd "Data.Either.LT" [] -> Just LT
SProd "Data.Either.EQ" [] -> Just EQ
SProd "Data.Either.GT" [] -> Just GT
SProd "Data.Ordering.LT" [] -> Just LT
SProd "Data.Ordering.EQ" [] -> Just EQ
SProd "Data.Ordering.GT" [] -> Just GT
_ -> Nothing

-- | A GenericSpine is a universal representation of an arbitrary data
Expand Down