From b9df7908fc96c6e809c3f22bfca50d8703ce12a1 Mon Sep 17 00:00:00 2001
From: tv <tv@krebsco.de>
Date: Mon, 27 Jul 2015 00:54:15 +0200
Subject: 4 tv: purge cruft

---
 4lib/tv/default.nix | 27 +--------------------------
 1 file changed, 1 insertion(+), 26 deletions(-)

(limited to '4lib/tv/default.nix')

diff --git a/4lib/tv/default.nix b/4lib/tv/default.nix
index 16888c2..e0a295f 100644
--- a/4lib/tv/default.nix
+++ b/4lib/tv/default.nix
@@ -9,38 +9,13 @@ with krebs;
 krebs // rec {
 
   git = import ./git.nix {
-    lib = lib // {
-      inherit addNames;
-    };
+    lib = krebs;
     inherit pkgs;
   };
 
   # "7.4.335" -> "74"
   majmin = with lib; x : concatStrings (take 2 (splitString "." x));
 
-  concat = xs :
-    if xs == []
-      then ""
-      else head xs + concat (tail xs)
-    ;
-
-  flip = f : x : y : f y x;
-
-  # isSuffixOf :: String -> String -> Bool
-  isSuffixOf =
-    s : xs :
-      let
-        sn = stringLength s;
-        xsn = stringLength xs;
-      in
-        xsn >= sn && substring (xsn - sn) sn xs == s ;
-
-  # setMap :: (String -> a -> b) -> Set String a -> [b]
-  #setMap = f: xs: map (k : f k (getAttr k xs)) (attrNames xs);
-
-  # setToList :: Set k a -> [a]
-  #setToList = setMap (_: v: v);
-
   shell-escape =
     let
       isSafeChar = c: match "[-./0-9_a-zA-Z]" c != null;
-- 
cgit v1.2.3


From 869eeb1dc1d3bfeddf67f882e0853b15e63dceb3 Mon Sep 17 00:00:00 2001
From: tv <tv@krebsco.de>
Date: Mon, 27 Jul 2015 02:02:34 +0200
Subject: * tv -> tv *

---
 4lib/tv/default.nix | 27 ---------------------------
 1 file changed, 27 deletions(-)
 delete mode 100644 4lib/tv/default.nix

(limited to '4lib/tv/default.nix')

diff --git a/4lib/tv/default.nix b/4lib/tv/default.nix
deleted file mode 100644
index e0a295f..0000000
--- a/4lib/tv/default.nix
+++ /dev/null
@@ -1,27 +0,0 @@
-{ lib, pkgs, ... }:
-
-let
-  krebs = import ../../4lib/krebs { inherit lib; };
-in
-
-with krebs;
-
-krebs // rec {
-
-  git = import ./git.nix {
-    lib = krebs;
-    inherit pkgs;
-  };
-
-  # "7.4.335" -> "74"
-  majmin = with lib; x : concatStrings (take 2 (splitString "." x));
-
-  shell-escape =
-    let
-      isSafeChar = c: match "[-./0-9_a-zA-Z]" c != null;
-    in
-    stringAsChars (c:
-      if isSafeChar c then c
-      else if c == "\n" then "'\n'"
-      else "\\${c}");
-}
-- 
cgit v1.2.3