r7rs datum ast

src/Gyehoek/Prelude.hs

@@ -14,6 +14,8 @@ module Gyehoek.Prelude
   , IsList(fromList)
   , HasCallStack
   , Hashable
+  , NonEmpty((:|))
+  , Natural
   ) where
 
 import Control.Lens
@@ -31,4 +33,6 @@ import Data.Generics.Labels ()
 import Data.String.Interpolate
 import GHC.Stack (HasCallStack)
 import Data.Hashable (Hashable)
+import Data.List.NonEmpty (NonEmpty((:|)))
+import Numeric.Natural (Natural)