diff options
Diffstat (limited to 'kiki.hs')
-rw-r--r-- | kiki.hs | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -729,7 +729,7 @@ sync bExport bSecret cmdarg args_raw = do | |||
729 | else ConstRef | 729 | else ConstRef |
730 | pems = flip map keypairs | 730 | pems = flip map keypairs |
731 | $ \(usage,path,cmd) -> | 731 | $ \(usage,path,cmd) -> |
732 | let cmd' = guard (not $ null cmd) >> return cmd | 732 | let cmd' = mfilter (not . null) (Just cmd) |
733 | in if bExport | 733 | in if bExport |
734 | then (ArgFile path, (MutableRef cmd', PEMFile usage)) | 734 | then (ArgFile path, (MutableRef cmd', PEMFile usage)) |
735 | else if isNothing cmd' | 735 | else if isNothing cmd' |