diff options
Diffstat (limited to 'Git/Types.hs')
| -rw-r--r-- | Git/Types.hs | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/Git/Types.hs b/Git/Types.hs index d805d8574..802922532 100644 --- a/Git/Types.hs +++ b/Git/Types.hs @@ -47,10 +47,10 @@ type RemoteName = String {- A git ref. Can be a sha1, or a branch or tag name. -} newtype Ref = Ref String - deriving (Eq, Ord) + deriving (Eq, Ord, Read, Show) -instance Show Ref where - show (Ref v) = v +fromRef :: Ref -> String +fromRef (Ref s) = s {- Aliases for Ref. -} type Branch = Ref |