Steell

using System;
using System.Collections.Immutable;
using System.Reactive;
using System.Reactive.Linq;
using System.Reactive.Subjects;

namespace Steellworks.Rx.UndoRedo
{
    /// <summary>
    ///     Defines properties for fetching a value and its inverse.

Steell

using System;
using System.Reactive;
using System.Reactive.Linq;
using System.Reactive.Subjects;

public static void Example()
{
    // Subjects and functions for performing undos and redos
    Subject<Unit> undoSubject = new Subject<Unit>();
    Subject<Unit> redoSubject = new Subject<Unit>();

Steell

module Zoom where

import Control.Lens
import Control.Lens.Internal.Zoom
import Control.Monad.State

zoom' :: MonadState t m => LensLike' (Focusing m b) t s -> StateT s m b -> m b
zoom' l st = do
  (a, s) <- get >>= runStateT (zoom l st)
  put s

Steell

import Control.Monad.Reader

data Foo m = Foo { action :: m Int }

runFoo :: (MonadReader (Foo m) m) => m Int
runFoo = ask >>= action

bar :: IO Int
bar = runReaderT runFoo (Foo readLn)

Steell

data PlayerInfo c = PlayerInfo { _playerName :: String
                               , _playerAttack :: forall m. c m => m ()
                               }
data AttackInfo a = AttackInfo { _infoAttacker :: PlayerInfo a
                               , _infoTarget :: PlayerInfo a
                               }
data GameInfo a = GameInfo { _gamePlayer1 :: PlayerInfo a
                           , _gamePlayer2 :: PlayerInfo a
                           }

Steell

data Foo a = Foo { _unFoo :: a }
makeLenses ''Foo

newtype Newline = Newline { unNewline :: String }
instance Monoid Newline where
  mempty = Newline []
  mappend (Newline []) b = b
  mappend a (Newline []) = a
  mappend (Newline a) (Newline b) = Newline $ a `mappend` "\n" `mappend` b

Steell

let
  pkgs = import <nixpkgs> {};
  gitHub = pkgs.fetchFromGitHub;
in

with pkgs;
openzwave.overrideAttrs (oldAttrs: {
  src = gitHub {
    owner = "Steell";
    repo = "open-zwave";

Steell

class Butt {
  interface ButtDBAdapter {
    public function insertFinger($force);
    public function feel();
  }
  
  function __construct($dbAdapter) {
    $db = $dbAdapter;
  }
  

Steell

class Butt {
  interface DBAdapter {
    public function insertFinger($force);
    public function feel();
  }
  
  function __construct($dbAdapter) {
    $db = $dbAdapter;
  }
  

Steell

# shell.nix
let
  releaseDrv = import ./release.nix;
  cabal = releaseDrv.haskellPackages.cabal;
in

releaseDrv
  .haskell-nix-sandbox
  .env
  .overrideAttrs (drv: {