From f6a5cb86685e9d1166529f67fb87d7c28736edc6 Mon Sep 17 00:00:00 2001 From: Julian Ospald Date: Mon, 13 Jun 2016 13:51:53 +0200 Subject: [PATCH] Add test to basename --- src/HPath.hs | 2 ++ 1 file changed, 2 insertions(+) diff --git a/src/HPath.hs b/src/HPath.hs index 23e571b..f44872e 100644 --- a/src/HPath.hs +++ b/src/HPath.hs @@ -336,6 +336,8 @@ dirname (MkPath fp) = MkPath (takeDirectory $ dropTrailingPathSeparator fp) -- -- >>> basename (MkPath "/abc/def/dod") :: Maybe (Path Fn) -- Just "dod" +-- >>> basename (MkPath "/abc/def/dod/") :: Maybe (Path Fn) +-- Just "dod" -- >>> basename (MkPath "/") :: Maybe (Path Fn) -- Nothing basename :: MonadThrow m => Path b -> m (Path Fn)