danieljsummers

namespace ReaderMonad

// -- begin code lifted from #er demo --
type ReaderM<'d, 'out> = 'd -> 'out

module Reader =
  // basic operations
  let run dep (rm : ReaderM<_,_>) = rm dep
  let constant (c : 'c) : ReaderM<_,'c> = fun _ -> c
  // lifting of functions and state

danieljsummers

open Suave
open Suave.Filters
open Suave.Operators
open System

module View =
  let page (data : Map<string, obj>) =
    match data |> Map.tryFind "messages" with
    | Some x ->
        x :?> string list |> List.reduce (+)

danieljsummers

#!/bin/bash
INSTALL_DIR=/usr/lib/node_modules
SUB_DIR=$INSTALL_DIR/hexo-cli/node_modules
echo Getting root privileges...
sudo echo Done.
echo Installing in a temp directory...
mkdir tmp
cd tmp
npm install hexo-cli
echo "Done; moving to global NPM directory..."