diff options
Diffstat (limited to 'Storage')
-rw-r--r-- | Storage/Local.hs | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/Storage/Local.hs b/Storage/Local.hs index 90da7b8..99b92db 100644 --- a/Storage/Local.hs +++ b/Storage/Local.hs @@ -14,12 +14,12 @@ module Storage.Local import Types import Types.Storage import Serialization () +import Utility.UserInfo import qualified Data.ByteString as B import qualified Data.ByteString.UTF8 as U8 import Data.Monoid import Data.List import Data.Maybe -import System.Posix.User import System.IO import System.Directory import System.Posix @@ -143,8 +143,8 @@ onError f a = do storageDir :: Maybe LocalStorageDirectory -> GetShareDir storageDir Nothing (Section section) = do - u <- getUserEntryForID =<< getEffectiveUserID - return $ homeDirectory u </> dotdir </> section + home <- myHomeDir + return $ home </> dotdir </> section storageDir (Just (LocalStorageDirectory d)) (Section section) = pure $ d </> section |