SSO-551 Remove SSO dependency on Air presets (#6339)
commit47d0463de059b79559392eb669f3f7b950db285b
authorVille Tirronen <ville@typeable.io>
dateFri 13 Aug 2021, 09:21 (5 years ago)
parentb70491c
src/Data/Id.hs+5
@@ -6,6 +6,7 @@
66module Data.Id
77 ( Id(..)
88 , coerceId
9+ , nilId
910 , _Id
1011 ) where
1112
@@ -62,6 +63,10 @@ coerceId :: forall a b. Id (Ambiguous a) -> Id (Ambiguous b)
6263coerceId = coerce
6364{-# INLINE coerceId #-}
6465
66+-- | Id corresponding to UUID nil. Useful for testing etc.
67+nilId :: forall a. Id (Ambiguous a)
68+nilId = Id UUID.nil
69+{-# INLINE nilId #-}
6570-- https://kcsongor.github.io/ambiguous-tags/
6671type family Ambiguous (a :: k) :: j where
6772 Ambiguous x = x