David Barbour dmbarbour

## Arbiter.hs
{-# LANGUAGE MultiParamTypeClasses, FlexibleInstances #-}

module Main where

import Test.QuickCheck

class Arbiter f r where
  arbiter :: f -> Gen r

instance Arbiter r r where

## 24days.md

      
        
          
            
              
              1 file
            
          
          
            
              
              14 forks
            
          
          
            
              
              10 comments
            
          
          
            
              
              185 stars
            
          
        
        
          
              
          
          
            
                paf31
                / 24days.md
            
            
              Last active
              August 8, 2023 05:53
            
              
                24 Days of PureScript
              
          
        
      
        
  
      
    This blog post series has moved here.
You might also be interested in the 2016 version.
	{-# LANGUAGE MultiParamTypeClasses, FlexibleInstances #-}

	module Main where

	import Test.QuickCheck

	class Arbiter f r where
	arbiter :: f -> Gen r

	instance Arbiter r r where