getName :: IO String
getName = fmap Posix.userName . Posix.getUserEntryForID =<< Posix.getEffectiveUserID
getName :: IO String
getName = fmap Posix.userName . Posix.getUserEntryForID =<< Posix.getEffectiveUserID
getName = fmap Posix.userName . Posix.getUserEntryForID =<< Posix.getEffectiveUserID