dullbananas

const app = function(request, response) {
    response.writeHead(200, {
        "Content-Type": "text/html",
    });
    response.end("Hello world");
};

module.exports = app;

dullbananas

random : Value -> Float
random =
    decodeValue (field "random" float)

dullbananas

module EA exposing (..)


port ea0 : Int -> Cmd msg
port ea1 : Int -> Cmd msg
port ea2 : Int -> Cmd msg
port ea3 : Int -> Cmd msg
port ea4 : Int -> Cmd msg
port ea5 : Int -> Cmd msg

dullbananas

declare const editsc; // Tells TypeScript that this variable is defined elsewhere
editsc.init({
    useVersion: "1.0", // The version of the extension API to use
    name: "Basics",
});


// Defines an action allowing the user to select a
// block and replace it with a different block
editsc.action({

dullbananas

module Main exporting
    -  main


procedure main =
    file : Io.stream <- loop getFilename:
        case do Util.promptFileName:
            Ok stream ->
                Loop.exit getFilename stream
            

dullbananas

type Decoder a
    = Decoder ( String -> Maybe a )


type Error
    = InvalidHeaders
    | NoRows


int : Decoder Int

dullbananas

module Thing exposing ( add4 )


add4 : Int -> Int
add4 =
    (+) 4

dullbananas

-- if elm was imperative

import Console
import Proc


type alias Model =
    { prompt : String
    }

dullbananas

module Fraction exposing (Fraction, create, toFloat_)


-- See https://discourse.elm-lang.org/t/proposal-extending-built-in-typeclasses/5510/2


type Fraction [ number, comparable ]
    = Fraction Int Int

dullbananas

module NeverGonna exposing (main)

import Html exposing (..)


main : Html Never -- gonna give you up
main =
    let
        neverGonna : List String
        neverGonna =