Skip to content

Instantly share code, notes, and snippets.

Avatar

Nicolas Hery nicolashery

View GitHub Profile
View .servant-nested-apis.md

Nesting APIs and ReaderT environments in Haskell's Servant

View .transformers-vs-reader.md
View .app-vs-hander-env.md

App-wide vs. Handler-specific environments in Haskell's Servant

See files:

Client requests:

@nicolashery
nicolashery / AsyncMonadBaseControlExample.hs
Created September 9, 2022 14:01
Haskell ReaderT LoggingT - MonadBaseControl vs. MonadUnliftIO
View AsyncMonadBaseControlExample.hs
module AsyncMonadBaseControlExample where
import Blammo.Logging (LoggingT)
import Control.Concurrent.Async.Lifted.Safe (concurrently)
import Control.Monad.Base (MonadBase)
import Control.Monad.Reader (MonadIO, MonadReader, MonadTrans (lift), ReaderT)
import Control.Monad.Trans.Control (MonadBaseControl (liftBaseWith, restoreM), StM)
import Data.Text.Lazy qualified as TL
import Web.Scotty.Trans (ActionT, text)
View HaskellJsonTypescript.hs
#!/usr/bin/env stack
{- stack
--resolver lts-13.4
--install-ghc
script
--ghc-options "-Wall"
--package aeson
--package aeson-pretty
--package aeson-typescript
--package base
@nicolashery
nicolashery / typescript-jsdoc-enum.md
Last active May 2, 2023 06:53
Emulating "enums" in JSDoc version of TypeScript
View typescript-jsdoc-enum.md

Emulating "enums" in JSDoc version of TypeScript

Problem

TypeScript has support for type-checking plain JavaScript files, which is very useful if you have an existing JS codebase and you want to test the waters and gradually add types.

There are some limitations in what you can do in JSDoc, but a lot of them can be worked-around by using type-definition files .d.ts (for example in a types/ directory). These files don't generate any JavaScript code, they are just there to provide extra type definitions to the compiler.

One thing you can't do in those .d.ts files though, is use enums. You could define them of course, but you won't get the runtime representation since the files don't generate JS code.

@nicolashery
nicolashery / Makefile
Last active January 7, 2018 21:50
Svelte.js & Google Closure Compiler
View Makefile
CLOSURE_COMPILER_VERSION := 20180101
CLOSURE_COMPILER_URL := http://dl.google.com/closure-compiler/compiler-$(CLOSURE_COMPILER_VERSION).tar.gz
closure-compiler:
mkdir -p vendor
curl -o vendor/closure-compiler.tar.gz $(CLOSURE_COMPILER_URL)
tar -C vendor/ -zxf vendor/closure-compiler.tar.gz
mv vendor/closure-compiler-v$(CLOSURE_COMPILER_VERSION).jar vendor/closure-compiler.jar
rm vendor/COPYING vendor/README.md vendor/closure-compiler.tar.gz
@nicolashery
nicolashery / .gitignore
Last active September 24, 2021 11:24
TypeScript React JSDoc
View .gitignore
node_modules
dist
@nicolashery
nicolashery / 0-react-jsx-string-concatenation.md
Last active November 30, 2016 03:50
Proof of concept transforming React JSX code to a string-concatenating function with a Babel plugin
View 0-react-jsx-string-concatenation.md

Instructions

Go to http://astexplorer.net/, select babylon6 as the parser, and babelv6 as the transform option.

Paste in the babel-plugin-react-string.js code in the transform area.

Paste the following example source code:

function profile(props) {
@nicolashery
nicolashery / Main.hs
Last active August 19, 2017 07:16
Exploring internationalization (i18n) in Haskell (message translations, datetime format, number/currency format)
View Main.hs
{-# LANGUAGE MultiParamTypeClasses #-}
{-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE TemplateHaskell #-}
{-# LANGUAGE DeriveGeneric #-}
module Main where
import Data.Monoid ((<>))
import qualified Data.Text as T
import Text.Shakespeare.I18N (mkMessage, renderMessage, RenderMessage())