diff options
author | tv <tv@krebsco.de> | 2015-07-27 00:54:15 +0200 |
---|---|---|
committer | tv <tv@krebsco.de> | 2015-07-27 01:09:25 +0200 |
commit | b9df7908fc96c6e809c3f22bfca50d8703ce12a1 (patch) | |
tree | 81008494e0682b364428a2c89c140f1c137b5e76 /4lib | |
parent | 42a5ff95e5cbcbe54ed497af7c174fe0809096f1 (diff) |
4 tv: purge cruft
Diffstat (limited to '4lib')
-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 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; |