Slesa

type KeyValues = Map<string,string>

type DataList = {
    Articles: KeyValues list option
}

let dataList : DataList = {
    Articles = Option.None
}

Slesa

open FsUnit

[<TestFixture>]
type ``When using apply in List`` ()=
    let (<*>) = List.apply

    [<Test>] member x.
        ``it should call apply to each member``() =
            [add] <*> [1; 2] <*> [10;20]
            |> should equal [11;21;12;22]    

Slesa

import os
import subprocess

# https://docs.xfce.org/xfce/xfconf/xfconf-query

#region Output

Colors = [
    ('<red>', '\033[0;31m'),
    ('<green>', '\033[0;32m'),

Slesa

package hello_scala
import akka.actor.Actor
import akka.actor.ActorSystem
import akka.actor.Props

class HelloActor extends Actor {
  def receive = {
    case "hello" => println("hello back to you")
    case _ => println("huh?")
  }

Slesa

(* Special directory syntax:
   bin\Program
   bin\Application
   ...
   bin\Config
let deployDir = "bin\deploy\"

let createZip is64bit (dirInfo: DirectoryInfo) = 
  let dirName = dirInfo.Name
  if not (System.String.Equals(dirName, "config", System.StringComparison.CurrentCultureIgnoreCase)) then

Slesa

### Keybase proof

I hereby claim:

  * I am slesa on github.
  * I am slesa (https://keybase.io/slesa) on keybase.
  * I have a public key whose fingerprint is 0313 2654 990B FB6A EFF2  6514 AC0E 80D9 FDB6 A2A1

To claim this, I am signing this object:

Slesa

// seq<int64> -> #seq<int64>
let req findAllPrimes values =
  let sequence = seq {
    for value in values do
      if isPrime value then 
        yield value
      else
        let divisors = findDivisors value
        yield! findAllPrimes divisors }
  sequence

Slesa

Build Configuration:

* Debug Support:  full
* GNU Visibility: yes

Now type "make" to compile.
(CDPATH="${ZSH_VERSION+.}:" && cd . && /bin/bash /home/jpreiss/work/xfce/libxfce4util/missing autoheader)
configure.ac:140: warning: AC_LANG_CONFTEST: no AC_LANG_SOURCE call detected in body
../../lib/autoconf/lang.m4:193: AC_LANG_CONFTEST is expanded from...
../../lib/autoconf/general.m4:2729: _AC_RUN_IFELSE is expanded from...

Slesa

type MageProcessor = MSIL | X86
type MageCall = NewApp | UpdateApp | Sign | Deploy | UpdateDeploy | SignDeploy
type MageTrustLevels = Internet | LocalIntranet | FullTrust
type MageParams =
  { ToolsPath : string
    ProjectFiles : seq<string>
    Name : string
    IconPath : string 
    IconFile : string 
    Processor : MageProcessor

Slesa

#I @"Tools\Fake"
#r "FakeLib.dll"

open Fake

let buildNumber =
    if hasBuildParam "version" then getBuildParam "version" else
    if isLocalBuild then "0" else
    buildVersion
let version =