better storage format

1 files changed, 3 insertions, 3 deletions

diff --git a/ymir/mlmmj-expose.nix b/ymir/mlmmj-expose.nix
index 6673c06c..3481308d 100644
--- a/ymir/mlmmj-expose.nix
+++ b/ymir/mlmmj-expose.nix
@@ -41,7 +41,7 @@ let
                 setCurrentDirectory listDir
                 key <- (BS.readFile "exposed.key") `catchIOError` (\e -> if isDoesNotExistError e then randomKey >>= (\k -> BS.writeFile "exposed.key" k >> return k) else ioError e)
                 let ((map toLower -> ident), (map toLower -> recipient)) = read . CLBS.unpack $ decryptMsg CBC key extension
-                identities <- (read <$> readFile "exposed.ids") `catchIOError` (\e -> if isDoesNotExistError e then return [] else ioError e)
+                identities <- (lines <$> readFile "exposed.ids") `catchIOError` (\e -> if isDoesNotExistError e then return [] else ioError e)
                 unless (ident `elem` identities) . die $ "Unknown sender: ‘" ++ ident ++ "’"
                 subscribers <- getSubscribers
                 unless (recipient `elem` subscribers) . die $ "Unknown recipient: ‘" ++ recipient ++ "’"
@@ -56,7 +56,7 @@ let
                 identities <- (read <$> readFile "exposed.ids") `catchIOError` (\e -> if isDoesNotExistError e then return [] else ioError e)
                 case ident `elem` identities of
                   True -> putStrLn "Identity is already known"
-                  False -> writeFile "exposed.ids" . show $ ident : identities
+                  False -> writeFile "exposed.ids" . unlines $ ident : identities
               _ -> hPutStrLn stderr ("Called without expected arguments (<listDirectory> <senderIdentity>)") >> exitWith (ExitFailure 2)
           "mlmmj-get-exposed" -> do
             args <- getArgs
@@ -64,7 +64,7 @@ let
               [listDir, (map toLower -> ident), (map toLower -> recipient)] -> do
                 setCurrentDirectory listDir
                 key <- (BS.readFile "exposed.key") `catchIOError` (\e -> if isDoesNotExistError e then randomKey >>= (\k -> BS.writeFile "exposed.key" k >> return k) else ioError e)
-                identities <- (read <$> readFile "exposed.ids") `catchIOError` (\e -> if isDoesNotExistError e then return [] else ioError e)
+                identities <- (lines <$> readFile "exposed.ids") `catchIOError` (\e -> if isDoesNotExistError e then return [] else ioError e)
                 unless (ident `elem` identities) . die $ "Unknown sender: ‘" ++ ident ++ "’"
                 subscribers <- getSubscribers
                 unless (recipient `elem` subscribers) . die $ "Unknown recipient: ‘" ++ recipient ++ "’"