diff options
| author |  Joey Hess <joey@kitenet.net> | 2011-12-20 14:37:53 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2011-12-20 14:37:53 -0400 |
| commit | ee3b5b2a4279292d55af43c772cdfd0c56420798 (patch) | |
| tree | 0227fb4732ef376ac9123a9a89b924793ed841e2 /Git/LsTree.hs | |
| parent | 6897460d350df41f1e98147f96fde1b66171bc19 (diff) | |
use Common in a few more modules
Diffstat (limited to 'Git/LsTree.hs')
| -rw-r--r-- | Git/LsTree.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/Git/LsTree.hs b/Git/LsTree.hs index 919e9af83..aae7f1263 100644 --- a/Git/LsTree.hs +++ b/Git/LsTree.hs @@ -16,10 +16,10 @@ import Control.Applicative import System.Posix.Types import qualified Data.ByteString.Lazy.Char8 as L +import Common import Git import Git.Command import qualified Git.Filename -import Utility.SafeCommand data TreeItem = TreeItem { mode :: FileMode @@ -37,7 +37,7 @@ lsTree t repo = map parseLsTree <$> - (The --long format is not currently supported.) -} parseLsTree :: L.ByteString -> TreeItem parseLsTree l = TreeItem - { mode = fst $ head $ readOct $ L.unpack m + { mode = fst $ Prelude.head $ readOct $ L.unpack m , typeobj = L.unpack t , sha = L.unpack s , file = Git.Filename.decode $ L.unpack f |