diff options
author | tv <tv@shackspace.de> | 2015-07-27 00:54:15 +0200 |
---|---|---|
committer | tv <tv@shackspace.de> | 2015-07-27 01:09:25 +0200 |
commit | 45b173c11ecc7d6e8a177d7121bd06d923691b4b (patch) | |
tree | 3cd669e4b4cea9942a00bb853af0bf096a37464b | |
parent | 0057d3a1916b2438ca7a113b9d2977ba0808054e (diff) |
4 tv: purge cruft
-rw-r--r-- | 4lib/tv/default.nix | 27 |
1 files changed, 1 insertions, 26 deletions
diff --git a/4lib/tv/default.nix b/4lib/tv/default.nix index 16888c214..e0a295f17 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; |