| By | ~fr33domlover |
| At | 2019-05-23 |
| Title | Build with LTS 13 and fix all warnings (mostly name shadowing & unused imports) |
| Description |
Edit file src/Control/Applicative/Local.hs 0 → 0
- 30 atMost n action = go n
+ 30 atMost times action = go times
- 39 atMost_ n action = go n
+ 39 atMost_ times action = go times
… … … … Edit file src/Data/Attoparsec/ByteString/Local.hs 0 → 0
- 70 dGo pCont (DecompressStreamError err) =
+ 70 dGo _pCont (DecompressStreamError err) =
… … … … Edit file src/Development/Darcs/Internal/Inventory/Parser.hs 0 → 0
- 53 import qualified Data.ByteString.Char8 as BC
- 61 import Data.Attoparsec.ByteString.Local
- 62 import Data.ByteString.Local (stripPrefix)
- 63 import Data.Text.UTF8.Local (decodeStrict)
… … … … - 117 line :: Parser ByteString
- 118 line = restOfLine
- 119 - 120 restOfLine :: Parser ByteString
- 121 restOfLine = takeWhile (/= lf)
+ 113 _line :: Parser ByteString
+ 114 _line = _restOfLine
+ 115 + 116 _restOfLine :: Parser ByteString
+ 117 _restOfLine = takeWhile (/= lf)
… … … … - 172 word8 sqrOpen
+ 168 _ <- word8 sqrOpen
- 177 word8 star
+ 173 _ <- word8 star
- 182 word8 space
+ 178 _ <- word8 space
- 187 lines <- many $ word8 space *> takeWhile (/= lf) <* eol
- 188 string "] "
+ 183 descLines <- many $ word8 space *> takeWhile (/= lf) <* eol
+ 184 _ <- string "] "
- 193 , pirDescription = lines
+ 189 , pirDescription = descLines
- 203 string "\nhash: "
- 204 hash <- sizeSha256P
- 205 return (pir, hash)
+ 199 _ <- string "\nhash: "
+ 200 contentHash <- sizeSha256P
+ 201 return (pir, contentHash)
… … … … - 217 (pir, hash) <- patchInfoRawP
- 218 let (pi, chash) = refinePatchInfo pir hash
- 219 return (pi, PatchInfoHash $ convert $ hashPatchInfo SHA1 pir, chash)
+ 213 (pir, contentHash) <- patchInfoRawP
+ 214 let (pinfo, chash) = refinePatchInfo pir contentHash
+ 215 return (pinfo, PatchInfoHash $ convert $ hashPatchInfo SHA1 pir, chash)
- 223 (pi, pih, pch) <- patchInfoP
- 224 case patchToTag pi of
+ 219 (pinfo, pih, pch) <- patchInfoP
+ 220 case patchToTag pinfo of
… … … … - 266 Nothing -> (Nothing, pis)
- 267 Just (ih, pi) -> (Just ih, pi : pis)
+ 262 Nothing -> (Nothing, pis)
+ 263 Just (ih, p) -> (Just ih, p : pis)
… … … … - 314 Nothing -> (Nothing, pis)
- 315 Just (ih, pi) -> (Just ih, pi : pis)
+ 310 Nothing -> (Nothing, pis)
+ 311 Just (ih, p) -> (Just ih, p : pis)
… … … … Edit file src/Development/Darcs/Internal/Inventory/Read.hs 0 → 0
- 24 import Control.Applicative (many, optional, liftA2)
- 25 import Control.Arrow (second)
- 26 import Control.Monad (replicateM_)
- 27 import Crypto.Hash
- 25 import Data.ByteArray (convert)
- 26 import Data.ByteString (ByteString)
- 27 import Data.Time.Calendar (fromGregorianValid)
- 28 import Data.Time.Clock (UTCTime (..), secondsToDiffTime)
- 29 import Data.Word (Word8)
- 27 import qualified Data.ByteString as B
- 28 import qualified Data.ByteString.Base16 as B16
- 29 import qualified Data.ByteString.Lex.Integral as BX
- 30 - 31 import Control.Applicative.Local
+ 18 - 31 import Development.Darcs.Internal.Inventory.Parser
- 32 import Development.Darcs.Internal.Inventory.Types
- 32 import Data.ByteString.Local (stripPrefix)
- 33 import Data.Text.UTF8.Local (decodeStrict)
… … … … Edit file src/Development/Darcs/Internal/Inventory/Types.hs 0 → 0
- 51 import Data.ByteString (ByteString)
- 52 import Data.Text (Text)
- 53 import Data.Time.Clock (UTCTime)
- 54 … … … … Edit file src/Development/Darcs/Internal/Patch.hs 0 → 0
- 29 import Control.Applicative (many, optional, liftA2)
- 30 import Control.Arrow (second)
- 31 import Control.Monad (replicateM_)
- 30 import Data.Attoparsec.ByteString
- 31 import Data.ByteArray (convert)
- 31 import Data.Time.Calendar (fromGregorianValid)
- 32 import Data.Time.Clock (UTCTime (..), secondsToDiffTime)
- 33 import Data.Word (Word8)
- 34 import System.FilePath ((</>))
- 35 - 36 import qualified Data.ByteString as B
+ 26 - 33 import qualified Data.ByteString.Base16 as B16
- 34 import qualified Data.ByteString.Lex.Integral as BX
- 35 - 36 import Control.Applicative.Local
+ 23 - 35 import Development.Darcs.Internal.Inventory.Types
- 36 import Data.Attoparsec.ByteString.Local
… … … … - 54 refinePatchInfo pir hash =
+ 39 refinePatchInfo pir contentHash =
… … … … - 69 , uncurry PatchContentHash hash
+ 54 , uncurry PatchContentHash contentHash
… … … … - 82 patchToTag pi =
- 83 if piTag pi
- 84 then Just $ patchToTag_ pi
+ 67 patchToTag patch =
+ 68 if piTag patch
+ 69 then Just $ patchToTag_ patch
… … … … Edit file src/Development/Darcs/Internal/Patch/Types.hs 0 → 0
- 27 import Development.Darcs.Internal.Hash.Types (PatchContentHash)
- 28 … … … … Edit file stack.yaml 0 → 0
- 6 resolver: lts-10.10
+ 6 resolver: lts-13.22
… … … …