Skip to content

Instantly share code, notes, and snippets.

@etorreborre
Created June 15, 2020 13:31
Show Gist options
  • Save etorreborre/e0510db26b20b4f3e98230cfe08eba22 to your computer and use it in GitHub Desktop.
Save etorreborre/e0510db26b20b4f3e98230cfe08eba22 to your computer and use it in GitHub Desktop.
Dependencies with RecordWildCards
newService :: Monad m => Logger m -> Tracer m -> Service m
newService Logger {..} Tracer {..} = Service {..}
where
doIt :: Int -> Text -> m ()
doIt n t = do
info "doing it" t
traceIt (show n)
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment