diff options
Diffstat (limited to 'BackupRecord.hs')
-rw-r--r-- | BackupRecord.hs | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/BackupRecord.hs b/BackupRecord.hs index 0a90de2..88a9b68 100644 --- a/BackupRecord.hs +++ b/BackupRecord.hs @@ -10,13 +10,13 @@ module BackupRecord where import Types import Types.Cost import Types.Server +import Utility.UserInfo import GHC.Generics import Data.Time.Clock.POSIX import Data.Aeson import Data.Maybe import System.FilePath import System.Directory -import System.Posix.User import System.Posix.Files import qualified Data.ByteString.Lazy as B @@ -51,8 +51,8 @@ mkBackupRecord servers sks (Entropy n) = BackupRecord backupRecordFile :: IO FilePath backupRecordFile = do - u <- getUserEntryForID =<< getEffectiveUserID - return $ homeDirectory u </> ".keysafe/backup.log" + home <- myHomeDir + return $ home </> ".keysafe/backup.log" readBackupRecords :: IO [BackupRecord] readBackupRecords = do |