use mfilter rather than guard

1 files changed, 1 insertions, 1 deletions

diff --git a/kiki.hs b/kiki.hs
index b7092dc..555ca92 100644
--- a/kiki.hs
+++ b/kiki.hs
@@ -729,7 +729,7 @@ sync bExport bSecret cmdarg args_raw = do
                                  else ConstRef
         pems = flip map keypairs 
                 $ \(usage,path,cmd) ->
-                    let cmd' = guard (not $ null cmd) >> return cmd
+                    let cmd' = mfilter (not . null) (Just cmd)
                     in if bExport
                         then (ArgFile path, (MutableRef cmd', PEMFile usage)) 
                         else if isNothing cmd'