feat(users/Profpatsch/my-tools): init

It’s kitchen-sink time!

Change-Id: Ieb4f9e642920c3e0619475095e19005bcaf558bc
Reviewed-on: https://cl.tvl.fyi/c/depot/+/13265
Reviewed-by: Profpatsch <mail@profpatsch.de>
Tested-by: BuildkiteCI

users/Profpatsch/whatcd-resolver/src/Http.hs

@@ -184,10 +184,6 @@ httpJson opts parser req = inSpan' "HTTP Request (JSON)" $ \span -> do
             )
         Right a -> pure a
 
-hush :: Either e a -> Maybe a
-hush (Right a) = Just a
-hush _ = Nothing
-
 doRequestJson ::
   (MonadOtel m) =>
   RequestOptions ->

users/Profpatsch/whatcd-resolver/src/MyLabel.hs

@@ -1,47 +0,0 @@
-{-# OPTIONS_GHC -Wno-orphans #-}
-
-module MyLabel where
-
-import GHC.OverloadedLabels (IsLabel (fromLabel))
-import GHC.Records (HasField (..))
-import GHC.TypeLits (Symbol)
-import Label
-import MyPrelude
-import Prelude hiding (span)
-
--- case-match on an e2 with a t2 that provides the relevant functions
-caseE2 ::
-  forall l1 t1 l2 t2 matcher r.
-  ( HasField l1 matcher (t1 -> r),
-    HasField l2 matcher (t2 -> r)
-  ) =>
-  matcher ->
-  E2 l1 t1 l2 t2 ->
-  r
-{-# INLINE caseE2 #-}
-caseE2 m e2 = do
-  let f1 = getField @l1 m
-  let f2 = getField @l2 m
-  case e2 of
-    E21 a -> f1 $ getField @l1 a
-    E22 b -> f2 $ getField @l2 b
-
-t2 :: forall l1 t1 l2 t2. LabelPrx l1 -> t1 -> LabelPrx l2 -> t2 -> T2 l1 t1 l2 t2
-{-# INLINE t2 #-}
-t2 LabelPrx a LabelPrx b = T2 (label @l1 a) (label @l2 b)
-
-t3 :: forall l1 t1 l2 t2 l3 t3. LabelPrx l1 -> t1 -> LabelPrx l2 -> t2 -> LabelPrx l3 -> t3 -> T3 l1 t1 l2 t2 l3 t3
-{-# INLINE t3 #-}
-t3 LabelPrx a LabelPrx b LabelPrx c = T3 (label @l1 a) (label @l2 b) (label @l3 c)
-
-lbl :: forall l t. LabelPrx l -> t -> Label l t
-{-# INLINE lbl #-}
-lbl LabelPrx a = label @l a
-
-data LabelPrx (l :: Symbol) = LabelPrx
-
-instance (l ~ l') => IsLabel l (LabelPrx l') where
-  fromLabel = LabelPrx
-
-instance (t ~ t') => IsLabel l (t -> (Label l t')) where
-  fromLabel = label @l