max630

{-# LANGUAGE FlexibleContexts, TemplateHaskell, TupleSections #-}
module InlineDoBind where

import Data.Data (Data, gmapM)
import Data.Generics.Aliases (extM)
import Language.Haskell.TH (Exp(DoE,AppE,VarE,InfixE),Stmt(BindS),Pat(VarP))
import Language.Haskell.TH.Syntax (Quasi,qNewName)

import Control.Monad.Trans.Writer.Strict (runWriterT,WriterT)
import Control.Monad.Trans.Class (lift)

max630

#!/bin/sh

set -e

mkdir -p /tmp/pr3436/sub_origin
cd /tmp/pr3436/sub_origin
git init /tmp/pr3436/sub_origin
mkdir subdir
seq 1 10 >subdir/f
git add subdir/f

max630

{-# LANGUAGE TypeFamilies #-}
module T1 where

import qualified Graphics.Win32.Misc as WM
import qualified System.Win32.Types as WT
import qualified System.Win32.File as WF

import Data.Int
import Data.Word
import Foreign.Ptr(Ptr())

max630

> {-# LANGUAGE TupleSections  #-}
> import Control.Applicative
> import Data.List (isPrefixOf)
> import Options.Applicative

> prefixReader expect = eitherReader $ prefixReader' expect
> prefixReader' expect s = if expect `isPrefixOf` s
>                           then Right s
>                           else Left ("not(\"" ++ s ++ "\" `isPrefixOf` \"" ++ expect ++ "\")")

max630

KBD	RU2	"Russian Phonetic"

COPYRIGHT	"(c) 2011 "

COMPANY	"Max"

LOCALEID	"00000419"

VERSION	1.0

max630

// ==UserScript==
// @name        BitbucketServer_FirstParentsOnly
// @namespace   http://max630.net
// @include     https://example.com/projects/FOO/repos/BAR/commits*
// @version     1
// @grant       none
// @run-at      document-idle
// ==/UserScript==

function HandleContent() {

max630

module Main where

import System.Environment(getArgs)

import qualified Prime

main :: IO ()
main = do
  a <- getArgs
  Prime.main (a !! 0) (read (a !! 1))

max630

-- https://stackoverflow.com/questions/50166215/how-to-modify-a-state-monad

{-# LANGUAGE FlexibleContexts #-}
{-# LANGUAGE RankNTypes #-}
{-# LANGUAGE ScopedTypeVariables #-}

module SoTrans where

import Control.Concurrent.MVar
import Control.Monad

max630

#!/usr/bin/env tclsh

package require Tk

pack \
    [button .send -text Send -command {puts [lindex $pIn 1] $inData}] \
    [entry .b -textvariable inData] \
    [text .a]

set pIn [chan pipe]