lowerslop

app/Gyehoek/Scheme/Syntax.hs

@@ -28,10 +28,11 @@ import Gyehoek.Sexp qualified
 import Gyehoek.GenSym (Gen)
 import Control.Lens (Each)
 import Data.String (IsString)
+import Data.Hashable (Hashable)
 
 
 newtype Name = MkName { getName :: Text }
-  deriving newtype (Show, Eq, IsString, Gen)
+  deriving newtype (Show, Eq, IsString, Gen, Hashable)
   deriving stock (Generic)
 
 data Prim e