TomMD

{
  description = "Bevy-based hello world";

  inputs = {
    nixpkgs.url = "github:nixos/nixpkgs?ref=nixos-unstable";
    flake-utils.url = "github:numtide/flake-utils";
    oxalica.url = "github:oxalica/rust-overlay";
  };

  outputs = { self, nixpkgs, flake-utils, oxalica }:

TomMD

let
  unstable = import <nixos-unstable> {};
  new = import <nixos-21.11> {};
in new.mkShell {
  buildInputs = [
    new.ghc
    new.haskellPackages.haskell-language-server
    unstable.neovim
    new.zlib.dev
    # unstable.terraform

TomMD

#!/usr/bin/env bash

function emit_results() {
	results=$1
	echo $results | \
	    jq '[ .[] |
	    	select (.vulns != null) |
	        .vulns |
		.[] |
		.type = .id |

TomMD

#!/bin/bash

# This script conforms to the Lift Script API v1

declare -a patterns
patterns=(XXX TODO FIXME)

directory=$1
commit=$2
command=$3

TomMD

#!/usr/bin/env bash

PSALM=/tmp/psalm.phar
SUDO=
if [[ -x $(command -v sudo) ]] ; then
    SUDO=sudo
fi

# Psalm isn't part of the Lift tooling. Install it.
function install_psalm() {

TomMD

#!/bin/bash

# This script conforms to the Muse Script API v1, providing
# a 'version',  'applicable <path>', and 'run <path>` operation.

declare -a patterns
patterns=(XXX TODO FIXME)

directory=$1
commit=$2

TomMD

#!/usr/bin/env cabal
{- cabal:
    build-depends: base, gloss
-}
{-# LANGUAGE BinaryLiterals #-}
import Prelude hiding (Either(..))
import Data.Word (Word64)
import Data.List (nub)
import Data.Maybe (catMaybes)
import Data.Bits (testBit,setBit,clearBit,shiftR,popCount)

TomMD

{-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE ViewPatterns      #-}
import Control.Applicative
import Control.Monad
import Control.Concurrent
import Control.Exception as X
import Data.Traversable
import Data.Monoid
import Data.String
import Data.Foldable

TomMD

tommd@HalfAndHalf /tmp% cat dw.c
#define __STDC_WANT_LIB_EXT1__ 1
#include <string.h>

int main()
{
    unsigned char data[10];
    memset_s(data,10,0,10);
    return 0;
}

TomMD

I was told compiling with `prof` will make the new GHC call stacks more informative (which seems odd) so I made this test.

Consider `so.hs`:

> import GHC.Stack
>
> main :: IO ()
> main = f
>
> f, g, h :: IO ()