yairchu

#include "AudioProcessorUndoAttachment.h"

using namespace juce;

class AudioProcessorUndoAttachment::ChangeAction : public UndoableAction
{
public:
    ChangeAction (AudioProcessor*);

    bool perform() override;

yairchu

#include "TransparentOpenGLComponent.h"

using namespace juce;

TransparentOpenGLComponent::TransparentOpenGLComponent()
{
    openGLContext.setComponentPaintingEnabled (true);
    openGLContext.setRenderer (this);
    openGLContext.setContinuousRepainting (true);
    openGLContext.attachTo (*this);

yairchu

{-# LANGUAGE FlexibleContexts, FlexibleInstances, GADTs, TypeFamilies #-}

module CalCache
  ( Ref(..)
  , Calc, NoCache, Cache
  , get, hasEq
  , toCache, updateCache
  , calcCacheResult
  ) where

yairchu

import Control.Applicative
import Control.Arrow (first, second)
import Control.Monad
import Data.Function (on)
import Data.Array
import Data.Monoid
import Data.Ord
import Data.Ratio
import Debug.Trace
import Text.Printf

yairchu

import Control.Monad
import Control.Monad.ListT
import Data.List (intercalate, isPrefixOf, isSuffixOf)
import Data.List.Class
import System.Directory.ListTree
import System.FilePath
import System.IO.Strict
import Prelude hiding (filter, readFile, scanl1)

cStringSplitter :: String -> [String]

yairchu

{-# LANGUAGE FlexibleContexts, FlexibleInstances, MultiParamTypeClasses, QuasiQuotes, TemplateHaskell, TypeFamilies, UndecidableInstances #-}

module SimpleAdmin where

import Data.Monoid (Monoid(..))
import Data.String (IsString(fromString))
import Data.Text (Text)
import Language.Haskell.TH.Syntax

import Database.Persist.Base (EntityDef(..), SomePersistField(..), PersistValue(..), ColumnDef(columnName))

yairchu

import Control.Monad (MonadPlus(mzero))
import Control.Monad.ListT (ListT)
import Data.Copointed
import Data.List.Class
import Prelude hiding (enumFromTo)

-- This is exactly the same as Data.List.Class.enumFromTo
pastedEnumFromTo :: (List l, Enum a) => a -> a -> l a
pastedEnumFromTo from to
    | fromEnum from > fromEnum to = mzero