Skip to content

Instantly share code, notes, and snippets.

@zyla
zyla / LongImport.hs
Created February 27, 2020 03:43
Failing test case for smuggler-0.1.0
module Test.LongImport where
import Data.Char
import Data.Int (Int)
_ = isAlpha
module Specular.FRP.DVar
( DVar
, new
, read
, value
, modify_
) where
import Prelude

Keybase proof

I hereby claim:

  • I am zyla on github.
  • I am zyla (https://keybase.io/zyla) on keybase.
  • I have a public key ASChNBEwcoBribZV7PryeZWLBJ1-rBmclprnx-FlyPOs9go

To claim this, I am signing this object:

data GRef da a = GRef (Dynamic a) (Callback da)
newtype Ref a = GRef (a -> a) a
type GLens s ds a da = { get :: s -> a, modify :: da -> ds }
type Lens s a = GLens s (s -> s) a (a -> a) = { get :: s -> a, modify :: (a -> a) -> (s -> s) }
type ElmStateRef = GRef Action State
showBoard initBoard `shouldBe` ".H.H.H.H\n........\n........\n........\n........\n........\n........\nF.......\n"
showBoard initBoard `shouldBe`
unlines
[ ".H.H.H.H"
, "........"
, "........"
, "........"
, "........"
#!/bin/sh
# Try to `bower info` all dependencies and print out the ones which failed.
set -e
node -e '
var package = require("./bower.json");
dump(package.dependencies);
dump(package.devDependencies);
#!/bin/sh
# Bump PureScript dependencies in `bower.json` to `#compiler/0.12`.
set -e
awk '
{
if (/ "purescript-*/ && ! /#compiler\/0.12/) {
if(/#/) {
gsub(/#.*"/, "#compiler/0.12\"");
// Binary ddrescue_extract reads finished blocks from a ddrescue-produced image.
package main
import (
"bufio"
"fmt"
"io"
"log"
"os"
)
module Main where
import Prelude
import Data.Maybe
import Control.Monad.Eff (Eff)
import Control.Monad.Eff.Console (CONSOLE, log)
import Data.Argonaut (stringify)
import Data.Argonaut.Generic.Aeson as GenericAeson
import Data.Argonaut.Generic.Argonaut as GenericArgonaut
{-# LANGUAGE NamedFieldPuns #-}
module FixImports where
import Data.Functor (void)
import Data.List (span, isPrefixOf, intercalate)
import qualified Text.Parsec as P
import qualified
Text.Parsec.String as P
import Data.Char as DC (isSpace)
import Debug.Trace as