diff options
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 |