4 tv: purge cruft
This commit is contained in:
parent
0057d3a191
commit
45b173c11e
@ -9,38 +9,13 @@ with krebs;
|
|||||||
krebs // rec {
|
krebs // rec {
|
||||||
|
|
||||||
git = import ./git.nix {
|
git = import ./git.nix {
|
||||||
lib = lib // {
|
lib = krebs;
|
||||||
inherit addNames;
|
|
||||||
};
|
|
||||||
inherit pkgs;
|
inherit pkgs;
|
||||||
};
|
};
|
||||||
|
|
||||||
# "7.4.335" -> "74"
|
# "7.4.335" -> "74"
|
||||||
majmin = with lib; x : concatStrings (take 2 (splitString "." x));
|
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 =
|
shell-escape =
|
||||||
let
|
let
|
||||||
isSafeChar = c: match "[-./0-9_a-zA-Z]" c != null;
|
isSafeChar = c: match "[-./0-9_a-zA-Z]" c != null;
|
||||||
|
Loading…
Reference in New Issue
Block a user