1
1
mirror of https://github.com/github/semantic.git synced 2024-12-11 08:45:48 +03:00

Derive Eq, Ord, & Show instances for Origin.

This commit is contained in:
Rob Rix 2018-03-29 23:13:43 -04:00
parent af4f2dd8b9
commit c2f4a9d5a5

View File

@ -8,6 +8,7 @@ import Prologue
data Origin
= Unknown
| Local ModuleName FilePath Range Span
deriving (Eq, Ord, Show)
instance Semigroup Origin where
a <> Unknown = a