diff options
| author |  Joey Hess <joey@kitenet.net> | 2011-12-31 04:11:39 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2011-12-31 04:11:58 -0400 |
| commit | 4a02c2ea629e1825c824bcc09449806b12408699 (patch) | |
| tree | fc00de3f710c2e2b2bbc6d4f99d576158648eb0b /Upgrade | |
| parent | a2ec2d3760f5ae17836ade3b0238dde7f9de5bd2 (diff) | |
type alias cleanup
Diffstat (limited to 'Upgrade')
| -rw-r--r-- | Upgrade/V0.hs | 2 | ||||
| -rw-r--r-- | Upgrade/V1.hs | 2 |
2 files changed, 2 insertions, 2 deletions
diff --git a/Upgrade/V0.hs b/Upgrade/V0.hs index eae5c87ce..c5310c641 100644 --- a/Upgrade/V0.hs +++ b/Upgrade/V0.hs @@ -33,7 +33,7 @@ keyFile0 :: Key -> FilePath keyFile0 = Upgrade.V1.keyFile1 fileKey0 :: FilePath -> Key fileKey0 = Upgrade.V1.fileKey1 -lookupFile0 :: FilePath -> Annex (Maybe (Key, Backend Annex)) +lookupFile0 :: FilePath -> Annex (Maybe (Key, Backend)) lookupFile0 = Upgrade.V1.lookupFile1 getKeysPresent0 :: FilePath -> Annex [Key] diff --git a/Upgrade/V1.hs b/Upgrade/V1.hs index 80554dc3b..add50fcf3 100644 --- a/Upgrade/V1.hs +++ b/Upgrade/V1.hs @@ -181,7 +181,7 @@ writeLog1 file ls = viaTmp writeFile file (showLog ls) readLog1 :: FilePath -> IO [LogLine] readLog1 file = catchDefaultIO (parseLog <$> readFileStrict file) [] -lookupFile1 :: FilePath -> Annex (Maybe (Key, Backend Annex)) +lookupFile1 :: FilePath -> Annex (Maybe (Key, Backend)) lookupFile1 file = do tl <- liftIO $ try getsymlink case tl of |