summaryrefslogtreecommitdiff
path: root/Annex/Link.hs
diff options
context:
space:
mode:
authorGravatar Joey Hess <joeyh@joeyh.name>2016-01-01 13:22:38 -0400
committerGravatar Joey Hess <joeyh@joeyh.name>2016-01-01 13:22:38 -0400
commit802f4615d785a520744c912446dab06569526a91 (patch)
treea489061ac78c410b5e91d67de065dc6484ca1a4e /Annex/Link.hs
parenteb18baf6b84c59faee1b309bbe0721d0f11f4a70 (diff)
convert isPointerFile from Annex to IO
Diffstat (limited to 'Annex/Link.hs')
-rw-r--r--Annex/Link.hs4
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