File tree Expand file tree Collapse file tree 6 files changed +7
-7
lines changed
hackage-security-HTTP/src/Hackage/Security/Client/Repository/HttpLib
hackage-security/src/Hackage/Security Expand file tree Collapse file tree 6 files changed +7
-7
lines changed Original file line number Diff line number Diff line change @@ -40,7 +40,7 @@ import Hackage.Security.Util.Pretty
40
40
--
41
41
-- TODO: This currently uses the lazy bytestring API offered by the HTTP
42
42
-- library. Unfortunately this provides no way of closing the connection when
43
- -- the callback decides it doens 't require any further input. It seems
43
+ -- the callback decides it doesn 't require any further input. It seems
44
44
-- impossible however to implement a proper streaming API.
45
45
-- See <https://github.com/haskell/HTTP/issues/86>.
46
46
withClient :: (Browser -> HttpLib -> IO a ) -> IO a
Original file line number Diff line number Diff line change @@ -89,7 +89,7 @@ data HasUpdates = HasUpdates | NoUpdates
89
89
-- This implements the logic described in Section 5.1, "The client application",
90
90
-- of the TUF spec. It checks which of the server metadata has changed, and
91
91
-- downloads all changed metadata to the local cache. (Metadata here refers
92
- -- both to the TUF security metadata as well as the Hackage packge index.)
92
+ -- both to the TUF security metadata as well as the Hackage package index.)
93
93
--
94
94
-- You should pass @Nothing@ for the UTCTime _only_ under exceptional
95
95
-- circumstances (such as when the main server is down for longer than the
Original file line number Diff line number Diff line change @@ -51,7 +51,7 @@ instance Unify Format where
51
51
--
52
52
-- Rather than having a general list here, we enumerate all possibilities.
53
53
-- This means we are very precise about what we expect, and we avoid any runtime
54
- -- errors about unexpect format definitions.
54
+ -- errors about unexpected format definitions.
55
55
--
56
56
-- NOTE: If we add additional cases here (for dealing with additional formats)
57
57
-- all calls to @error "inaccessible"@ need to be reevaluated.
Original file line number Diff line number Diff line change @@ -36,7 +36,7 @@ class HasHeader a where
36
36
-- every file update.
37
37
--
38
38
-- 'Show' and 'Read' instance are defined in terms of the underlying 'Int'
39
- -- (this is use for example by hackage during the backup process).
39
+ -- (this is used for example by Hackage during the backup process).
40
40
newtype FileVersion = FileVersion Int54
41
41
deriving (Eq , Ord , Typeable )
42
42
@@ -55,7 +55,7 @@ instance Read FileVersion where
55
55
newtype FileExpires = FileExpires (Maybe UTCTime )
56
56
deriving (Eq , Ord , Show , Typeable )
57
57
58
- -- | Occassionally it is useful to read only a header from a file.
58
+ -- | Occasionally it is useful to read only a header from a file.
59
59
--
60
60
-- 'HeaderOnly' intentionally only has a 'FromJSON' instance (no 'ToJSON').
61
61
data Header = Header {
Original file line number Diff line number Diff line change @@ -15,7 +15,7 @@ import Hackage.Security.Util.Path
15
15
-- | Location of the various files we cache
16
16
--
17
17
-- Although the generic TUF algorithms do not care how we organize the cache,
18
- -- we nonetheless specity this here because as long as there are tools which
18
+ -- we nonetheless specify this here because as long as there are tools which
19
19
-- access files in the cache directly we need to define the cache layout.
20
20
-- See also comments for 'defaultCacheLayout'.
21
21
data CacheLayout = CacheLayout {
Original file line number Diff line number Diff line change 1
1
-- | Patterns and replacements
2
2
--
3
3
-- NOTE: This module was developed to prepare for proper delegation (#39).
4
- -- It is currently unusued .
4
+ -- It is currently unused .
5
5
{-# LANGUAGE CPP #-}
6
6
#if __GLASGOW_HASKELL__ >= 800
7
7
{-# LANGUAGE DeriveLift #-}
You can’t perform that action at this time.
0 commit comments