magic_rb/dotfiles
1
0
Fork 0
mirror of https://git.sr.ht/~magic_rb/dotfiles synced 2024-11-29 03:26:13 +01:00
Code Issues Packages Projects Releases Wiki Activity

Improve Haskell code in gpg-key

Browse source 
Signed-off-by: Magic_RB <magic_rb@redalder.org>
This commit is contained in:
Magic_RB 2021-04-19 20:06:38 +02:00
parent ce73f39891
commit fd634e1d5e
No known key found for this signature in database
GPG key ID: 08D5287CC5DDCA0E
1 changed files with 2 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
nix/overlays/gpg-key/default.nix
View file

@ -41,11 +41,8 @@ final: prev:
rm "-r" "/mnt/key"
mntContains <- captureTrim <| find "/mnt" "-maxdepth" "0" "-empty"
if show mntContains == "" then do
putStrLn "delete /mnt" -- rm "-r" "/mnt"
else do
return ()
otherwise -> do
when (show mntContains == "") (putStrLn "delete /mnt" -- rm "-r" "/mnt")
_ -> do
putStrLn "open - open key\nclose - close key"
'';
};