From d67cfb80a350514570b8983d421dde16b4175fce Mon Sep 17 00:00:00 2001
From: onthepeakofnormal <gius_martin@yahoo.de>
Date: Mon, 27 Dec 2021 11:06:33 +0100
Subject: [PATCH] deriving typeclass memberships for ID

---
 src/Sound/Tidal/ID.hs | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/src/Sound/Tidal/ID.hs b/src/Sound/Tidal/ID.hs
index 0ac72ee68..99827f736 100644
--- a/src/Sound/Tidal/ID.hs
+++ b/src/Sound/Tidal/ID.hs
@@ -23,7 +23,8 @@ import GHC.Exts ( IsString(..) )
 -- | Wrapper for literals that can be coerced to a string and used as an identifier.
 -- | Similar to Show typeclass, but constrained to strings and integers and designed
 -- | so that similar cases (such as 1 and "1") convert to the same value.
-newtype ID = ID { fromID :: String }
+newtype ID = ID { fromID :: String } deriving (Eq, Show, Ord, Read)
+
 
 noOv :: String -> a
 noOv meth = error $ meth ++ ": not supported for ids"