Make the predicate type monadic

For better composition in monadic context.
composewell · Jul 26, 2022 · 55ae2ff · 55ae2ff
1 parent c663c6f
commit 55ae2ff
Show file tree

Hide file tree

Showing 3 changed files with 93 additions and 129 deletions.
diff --git a/src/Streamly/Coreutils/Cp.hs b/src/Streamly/Coreutils/Cp.hs
@@ -110,7 +110,7 @@ cpShouldOverwrite option src dest =
         OverwriteUpdate -> do
             r <- test dest isExisting
             if r
-            then test src =<< cmpModifyTime (>) dest
+            then test src $ cmpModifyTime (>) dest
             else return True
 
 -- | @cp option-modifier source destination@. Copy a file or directory.