1 files changed, 1 insertions, 1 deletions
diff --git a/ymir/mlmmj-expose.nix b/ymir/mlmmj-expose.nix
index 122fafa4..2bdcf619 100644
--- a/ymir/mlmmj-expose.nix
+++ b/ymir/mlmmj-expose.nix
@@ -69,7 +69,7 @@ let
          "mlmmj-get-exposed" -> do
            args <- getArgs
            case args of
-              [(dropTrailingPathSeperator -> listDir), (map toLower -> ident)] -> do
+              [(dropTrailingPathSeparator -> listDir), (map toLower -> ident)] -> do
                setCurrentDirectory listDir
                identities <- getIdentities
                unless (ident `elem` identities) . die $ "Unknown sender: ‘" ++ ident ++ "’"

diff --git a/ymir/mlmmj-expose.nix b/ymir/mlmmj-expose.nix index 122fafa4..2bdcf619 100644 --- a/ymir/mlmmj-expose.nix +++ b/ymir/mlmmj-expose.nix
@@ -69,7 +69,7 @@ let
69	"mlmmj-get-exposed" -> do	69	"mlmmj-get-exposed" -> do
70	args <- getArgs	70	args <- getArgs
71	case args of	71	case args of
72	[(dropTrailingPathSeperator -> listDir), (map toLower -> ident)] -> do	72	[(dropTrailingPathSeparator -> listDir), (map toLower -> ident)] -> do
73	setCurrentDirectory listDir	73	setCurrentDirectory listDir
74	identities <- getIdentities	74	identities <- getIdentities
75	unless (ident `elem` identities) . die $ "Unknown sender: ‘" ++ ident ++ "’"	75	unless (ident `elem` identities) . die $ "Unknown sender: ‘" ++ ident ++ "’"