diff options
| author |  Joey Hess <joeyh@joeyh.name> | 2016-01-01 13:22:38 -0400 |
|---|---|---|
| committer | Joey Hess <joeyh@joeyh.name> | 2016-01-01 13:22:38 -0400 |
| commit | 802f4615d785a520744c912446dab06569526a91 (patch) | |
| tree | a489061ac78c410b5e91d67de065dc6484ca1a4e /Annex/Link.hs | |
| parent | eb18baf6b84c59faee1b309bbe0721d0f11f4a70 (diff) | |
convert isPointerFile from Annex to IO
Diffstat (limited to 'Annex/Link.hs')
| -rw-r--r-- | Annex/Link.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/Annex/Link.hs b/Annex/Link.hs index 61c61b561..7f1a1b14d 100644 --- a/Annex/Link.hs +++ b/Annex/Link.hs @@ -153,6 +153,6 @@ formatPointer k = toInternalGitPath (pathSeparator:objectDir </> key2file k) ++ "\n" {- Checks if a file is a pointer to a key. -} -isPointerFile :: FilePath -> Annex (Maybe Key) -isPointerFile f = liftIO $ catchDefaultIO Nothing $ +isPointerFile :: FilePath -> IO (Maybe Key) +isPointerFile f = catchDefaultIO Nothing $ parseLinkOrPointer <$> L.readFile f |