summaryrefslogtreecommitdiff
path: root/kiki.hs
diff options
context:
space:
mode:
Diffstat (limited to 'kiki.hs')
-rw-r--r--kiki.hs6
1 files changed, 4 insertions, 2 deletions
diff --git a/kiki.hs b/kiki.hs
index 6c72eb5..5017b38 100644
--- a/kiki.hs
+++ b/kiki.hs
@@ -982,8 +982,10 @@ kiki "merge" args = do
982 Left ("access",Just "auto") -> ( flow { access = AutoAccess }, op ) 982 Left ("access",Just "auto") -> ( flow { access = AutoAccess }, op )
983 Left ("home",mb) -> 983 Left ("home",mb) ->
984 ( flow 984 ( flow
985 , op { opFiles = Map.insert HomePub flow { access=Pub } 985 , op { opFiles = Map.insert HomePub flow { typ=KeyRingFile
986 $ Map.insert HomeSec flow { access=Sec } 986 , access=Pub }
987 $ Map.insert HomeSec flow { typ=KeyRingFile
988 , access=Sec }
987 $ opFiles op 989 $ opFiles op
988 , opHome = opHome op `mplus` mb 990 , opHome = opHome op `mplus` mb
989 } 991 }