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

avoid ByteString.Char8 where not needed

Browse source 
Its truncation behavior is a red flag, so avoid using it in these places
where only raw ByteStrings are used, without looking at the data inside.
This commit is contained in:
Joey Hess 2012-06-20 13:13:40 -04:00
parent 6d641f1ac0
commit 75b6ee81f9
8 changed files with 10 additions and 10 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
Annex/CatFile.hs
View file

@ -12,7 +12,7 @@ module Annex.CatFile (
catFileHandle
) where
import qualified Data.ByteString.Lazy.Char8 as L
import qualified Data.ByteString.Lazy as L
import Common.Annex
import qualified Git

2
Crypto.hs
View file

@ -26,7 +26,7 @@ module Crypto (
prop_hmacWithCipher_sane
) where
import qualified Data.ByteString.Lazy.Char8 as L
import qualified Data.ByteString.Lazy as L
import Data.ByteString.Lazy.UTF8 (fromString)
import Data.Digest.Pure.SHA
import Control.Applicative

4
Git/CatFile.hs
View file

@ -15,8 +15,8 @@ module Git.CatFile (
) where
import System.IO
import qualified Data.ByteString.Char8 as S
import qualified Data.ByteString.Lazy.Char8 as L
import qualified Data.ByteString as S
import qualified Data.ByteString.Lazy as L
import Common
import Git

2
Remote/Bup.hs
View file

@ -7,7 +7,7 @@
module Remote.Bup (remote) where
import qualified Data.ByteString.Lazy.Char8 as L
import qualified Data.ByteString.Lazy as L
import qualified Data.Map as M
import System.Process

4
Remote/Directory.hs
View file

@ -7,8 +7,8 @@
module Remote.Directory (remote) where
import qualified Data.ByteString.Lazy.Char8 as L
import qualified Data.ByteString.Char8 as S
import qualified Data.ByteString.Lazy as L
import qualified Data.ByteString as S
import qualified Data.Map as M
import qualified Control.Exception as E

2
Remote/Hook.hs
View file

@ -7,7 +7,7 @@
module Remote.Hook (remote) where
import qualified Data.ByteString.Lazy.Char8 as L
import qualified Data.ByteString.Lazy as L
import qualified Data.Map as M
import System.Exit
import System.Environment

2
Remote/Rsync.hs
View file

@ -7,7 +7,7 @@
module Remote.Rsync (remote) where
import qualified Data.ByteString.Lazy.Char8 as L
import qualified Data.ByteString.Lazy as L
import qualified Data.Map as M
import Common.Annex

2
Utility/Gpg.hs
View file

@ -7,7 +7,7 @@
module Utility.Gpg where
import qualified Data.ByteString.Lazy.Char8 as L
import qualified Data.ByteString.Lazy as L
import System.Posix.Types
import Control.Applicative
import Control.Concurrent