lowerslop

2026-07-05 21:49:48 -06:00
parent a2c93938ca
commit 51c86a12cc
6 changed files with 109 additions and 7 deletions
@@ -3,6 +3,8 @@
 {-# LANGUAGE TypeOperators #-}
 {-# LANGUAGE PartialTypeSignatures #-}
 {-# LANGUAGE DerivingStrategies #-}
+{-# LANGUAGE OrPatterns #-}
+{-# LANGUAGE PatternSynonyms #-}
 module Gyehoek.Scheme.Syntax
  ( Name(..)
  , Prim(..)
@@ -28,10 +30,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