allow picking patches from files

1 files changed, 4 insertions, 1 deletions

diff --git a/Main.hs b/Main.hs
index 37c2ca6..4983f64 100644
--- a/Main.hs
+++ b/Main.hs
@@ -344,7 +344,10 @@ runCmd CmdPatch {..} cfg = do
   withSystemTempDirectory "werge-patch" $ \workdir -> do
     let f = workdir </> "file"
     bracketFile patchMy ReadMode $ \h -> hSplitToFile cfg h f
-    _ <- runPatch f stdin
+    _ <-
+      case patchInput of
+        Nothing -> runPatch f stdin
+        Just path -> bracketFile path ReadMode $ runPatch f
     conflicted <- pmerge f >>= format cfg stdout -- TODO try to resolve more?
     if conflicted
       then exitWith (ExitFailure 1)