Toys around with proof of concept

Author: bkase

.gitignore

@@ -0,0 +1,4 @@
+dist-newstyle
+*.local
+*.local~
+result

CHANGELOG.md

@@ -0,0 +1,5 @@
+# Revision history for barbq2
+
+## 0.1.0.0 -- YYYY-mm-dd
+
+* First version. Released on an unsuspecting world.

Main.hs

@@ -0,0 +1,37 @@
+{-# LANGUAGE FlexibleContexts, FlexibleInstances, InstanceSigs, MultiParamTypeClasses, DeriveFunctor, DerivingStrategies, GeneralizedNewtypeDeriving, KindSignatures #-}
+{-# LANGUAGE GADTs #-}
+{-# LANGUAGE ScopedTypeVariables #-}
+{-# LANGUAGE RankNTypes #-}
+
+
+module Main where
+
+import System.Clock
+
+-- Actions get an `a` from the universe
+newtype Action m a = Action (m a)
+  deriving Functor
+
+-- Providers control how frequently actions are run
+-- for now, just via polling
+newtype Provider m a = Provider { providerPoll :: () -> Action m a }
+  deriving Functor
+
+data Timeout = Immediate | In TimeSpec
+
+now :: [Timeout]
+now = [Immediate]
+
+every :: TimeSpec -> [Timeout]
+every s = In s : every s
+
+-- provide :: forall (m :: * -> *) a. [Timeout] -> Action m a -> Provider m a
+
+newtype Component a view = Component { consume :: a -> view }
+
+-- provide (now <> every (5 seconds)) (run "kwm...")
+--  <*> 
+
+main :: IO ()
+main = print 4
+

Setup.hs

@@ -0,0 +1,2 @@
+import Distribution.Simple
+main = defaultMain

barbq2.cabal

@@ -0,0 +1,25 @@
+cabal-version:       >=1.10
+-- Initial package description 'barbq2.cabal' generated by 'cabal init'.
+-- For further documentation, see http://haskell.org/cabal/users-guide/
+
+name:                barbq2
+version:             0.1.0.0
+-- synopsis:
+-- description:
+-- bug-reports:
+-- license:
+-- license-file:        LICENSE
+-- author:
+-- maintainer:
+-- copyright:
+-- category:
+build-type:          Simple
+extra-source-files:  CHANGELOG.md
+
+executable barbq2
+  main-is:             Main.hs
+  -- other-modules:
+  -- other-extensions:
+  build-depends:       base >=4.12 && <4.13, clock
+  -- hs-source-dirs:
+  default-language:    Haskell2010

default.nix

@@ -0,0 +1,16 @@
+{ compiler ? "ghc865", pkgs ? import <nixpkgs> {} }:
+
+let
+
+  haskellPackages = pkgs.haskell.packages.${compiler};
+  drv = haskellPackages.callCabal2nix "barbq2" ./. {};
+
+in
+  {
+    barbq = drv;
+    barbq-shell = haskellPackages.shellFor {
+      packages = p: [drv];
+      buildInputs = with pkgs; [ cabal-install hlint ghcid];
+    };
+  }
+

release.nix

@@ -0,0 +1,4 @@
+let
+  pkgs = import <nixpkgs> { };
+in
+  pkgs.haskellPackages.callPackage ./default.nix { }

shell.nix

@@ -0,0 +1,2 @@
+(import ./. {}).barbq-shell
+