sevanspowell

let
  pkgs = import <nixpkgs> {};
  python = import ./requirements.nix { inherit pkgs; };
in

python.mkDerivation rec {
  pname   = "cloudsmith-cli";
  version = "0.22.2";
  format = "wheel";

sevanspowell

module Main where

main :: IO ()
main = putStrLn "Hello, Haskell!"

sevanspowell

Keybase proof

I hereby claim:

• I am sevanspowell on github.
• I am sevanspowell (https://keybase.io/sevanspowell) on keybase.
• I have a public key ASAaO170tDIXDAN2Trvf5P4Rkh5c6QaN0y4Axrg-fq_rIAo

To claim this, I am signing this object:

sevanspowell

x :: (MonadReader r m
     , HasLogger r
     , LoggerF r ~ m
     , HasOther r
     , OtherF r ~ m
     , ...
     )
x = undefined

sevanspowell

{-# LANGUAGE TypeFamilies #-}
{-# LANGUAGE MultiParamTypeClasses #-}
{-# LANGUAGE FunctionalDependencies #-}

type Logger m = Severity -> String -> m ()

-- Fundep
class HasLoggerFundep r m | r -> m where
  loggerLFundep :: Lens' r (Logger m)

sevanspowell

data WrapperError = WrappingS3Error Jaws.S3Error
makeClassyPrisms ''WrapperError

instance Jaws.AsS3Error WrapperError where
  _S3Error = _WrappingS3Error

data Lookup m a = Lookup (m a)

inner
  :: ( AWS.MonadAWS m

sevanspowell

data WrapperError = WrappingS3Error S3Error
makeClassyPrisms ''WrapperError

instance AsS3Error WrapperError where
  _S3Error = _WrappingS3Error

inner
  :: ( AWS.MonadAWS m
     , MonadError e m
     , AsS3Error e

sevanspowell

{
  "owner": "NixOS",
  "repo": "nixpkgs",
  "rev": "eabe7b845f867e696f8a11be04d47520b3ff4660",
  "sha256": "068qbrp2fvpn437hwg932hm0pav2m10sj7v0kcj3wp8hsvsv088w"
}

sevanspowell

withFileSystem basePath fs = ContT $ \action -> bracket
  (liftIO $ do
    createDirectoryIfMissing True basePath
    instantiateFs basePath fs
  )
  (\_ -> uninterruptibleMask $ \_ -> do
    liftIO $ removeDirectoryRecursiveIfExists basePath
  )
  action

sevanspowell

withFileSystem basePath fs = ContT $ \action -> bracket
  (liftIO $ do
    createDirectoryIfMissing True basePath
    instantiateFs basePath fs
  )
  (\_ -> uninterruptibleMask $ \_ -> do
    liftIO $ removeDirectoryRecursiveIfExists basePath
  )
  action