alebon

#!/usr/bin/env bash
# VM installer - run INSIDE the target VM booted from a NixOS ISO.
#
# Usage: sudo ./vm-install.sh [disk]        (default disk: /dev/vda)
#
# Partitions the disk (MBR, ext4 root + swap), mounts it and generates
# the initial NixOS config. It does NOT run nixos-install - review
# /mnt/etc/nixos/configuration.nix first, then run nixos-install.
set -euo pipefail

alebon

{ pkgs ? import <nixpkgs> { } }:

let
  ethMinerScript = pkgs.writeScriptBin "start" ''
    ethminer --farm-recheck 200 --cuda --pool stratum1+tcp://<ETH_ADDRESS>.<ETH_MINER_TAG>@eu1.ethermine.org:4444
  '';
in
pkgs.mkShell {
  buildInputs = with pkgs; [
    ethminer

alebon

{ pkgs ? import <nixpkgs> { } }:
let
  replScript = pkgs.writeScriptBin "repl" ''
    ghci
  '';

in
pkgs.mkShell {
  buildInputs = [
    pkgs.haskellPackages.ghc

alebon

parted /dev/sda -- mklabel msdos

parted /dev/sda -- mkpart primary 1MiB -4GiB

parted /dev/sda -- mkpart primary linux-swap -4GiB 100%

alebon

{ mkDerivation, aeson, base, bytestring, http-types, lucid, mtl
, servant, servant-docs, servant-server, stdenv, text, wai
, wai-extra
}:
mkDerivation {
  pname = "my-app";
  version = "1.0.0.0";
  src = ./.;
  isLibrary = true;
  isExecutable = true;

alebon

let
  config = {
    packageOverrides = pkgs: rec {
      haskellPackages = pkgs.haskellPackages.override {
        overrides = haskellPackagesNew: haskellPackagesOld: rec {
          myApp =
            haskellPackagesNew.callCabal2nix "my-app" (./.) { };
        };
      };
    };

alebon

object JsFunctions {

  // Some more code here, using the buildServiceFunctions method

  

  def buildServerFunctions(name: String, funcs: List[RoundTripInfo], session: Box[LiftSession]): JsCmd = {
    JsRaw("""lift_serverFunctions().apply('%s', %s)"""
      .format(name, session.getOrElse(throw new Exception("Session required")).buildRoundtrip(funcs).toJsCmd).stripMargin).cmd
  }

alebon

class OrientIndexHandler(graph: OrientGraph) extends IndexHandler {

  override def createUniqueIndexField[ModelType, FieldType](field: Field[ModelType, FieldType], label: String): Unit = {

    val keyName = field.name
    val indexName = s"idx${label}_$keyName"

    val vertexType = graph.getVertexType(label)
    if (!vertexType.existsProperty(keyName)) {
      field match {

alebon

package demo.js

import net.liftweb.http.js.JsCmd

object JsCommands30 {

  /**
   * JsSchedule the execution of the JsCmd using setTimeout()
   * @param what the code to execute
   */

alebon

class SampleControllerBackend extends StatefulSnippet with Logger {

  protected lazy val controllerId = Helpers.nextFuncName

  def dispatch = {
    case "serverFunctions" => serverFunctions _
    case "allowModule" => allowModule _
  }

  def allowModule(xhtml: NodeSeq): NodeSeq = {