mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages 1 Wiki Activity Actions

qualified import

Browse source
This commit is contained in:
Joey Hess 2011-02-11 15:49:59 -04:00
parent 5a50a7cf13
commit 735076c767
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
Messages.hs
View file

@ -15,7 +15,7 @@ import qualified Codec.Binary.UTF8.String as UTF8
import Types import Types
import qualified Annex import qualified Annex
import SysConfig import qualified SysConfig
verbose :: Annex () -> Annex () verbose :: Annex () -> Annex ()
verbose a = do verbose a = do
@ -63,4 +63,4 @@ indent s = join "\n" $ map (\l -> " " ++ l) $ lines s
- platforms (eg, unix), FilePaths are internally stored in - platforms (eg, unix), FilePaths are internally stored in
- non-decoded form. -} - non-decoded form. -}
filePathToString :: FilePath -> String filePathToString :: FilePath -> String
filePathToString = if unicodefilepath then id else UTF8.decodeString filePathToString = if SysConfig.unicodefilepath then id else UTF8.decodeString