.github/workflows/build.yml

@@ -8,26 +8,17 @@ on:
 
 jobs:
   build:
-    name: Build ${{ github.ref_name }} OS:${{ matrix.os }} GHC:${{ matrix.ghc }}
-    runs-on: ${{ matrix.os }}
-    strategy:
-      matrix:
-        os: [ubuntu-22.04, macos-15]
-        ghc:
-          - "9.6"
-          - "9.12"
+    runs-on: ubuntu-latest
     steps:
       - uses: actions/checkout@v4
+        with:
+          submodules: recursive
       - uses: haskell-actions/setup@v2
         with:
-          ghc-version: ${{ matrix.ghc }}
-      - name: build
-        run: |
-          mkdir dist
-          cabal install exe:werge --install-method=copy --overwrite-policy=always --installdir=dist
-          strip dist/werge
-          mv dist/werge dist/werge-${{ github.ref_name }}_${{ matrix.os }}_ghc-${{ matrix.ghc }}
-          xz dist/werge-*
+          ghc-version: '9.4'
+      - run: |
+          cabal build
+          xz -9 < `cabal exec which werge` > werge-${{ github.ref_name }}-`uname -m`.xz
       - uses: softprops/action-gh-release@v2
         with:
-          files: dist/werge-*.xz
+          files: werge-*.xz

Main.hs

@@ -30,16 +30,13 @@ data Op
   | Add
   deriving (Show, Eq)
 
-pdiff' :: [String] -> [(Op, Tok)]
-pdiff' = map go
+pdiff :: FilePath -> IO [(Op, Tok)]
+pdiff path = map go . lines <$> readFile path
   where
     go ('-':s) = (Del, s)
     go (' ':s) = (Keep, s)
     go ('+':s) = (Add, s)
-    go _ = error "unexpected contents in diff"
-
-pdiff :: FilePath -> IO [(Op, Tok)]
-pdiff path = pdiff' . lines <$> readFile path
+    go _ = error "unexpected output from diff"
 
 data Merged
   = Ok [String]
@@ -289,21 +286,6 @@ format Config {..} h = go False
             [cfgLabelStart, Toks.glue o, cfgLabelDiff, Toks.glue n, cfgLabelEnd]
       go True xs
 
-fmtPatch :: Config -> Handle -> Handle -> IO ()
-fmtPatch cfg out h = hGetContents h >>= go . lines
-  where
-    go all@(l:ls)
-      | patchLine l = do
-        let (p, ls') = span patchLine all
-        format cfg out . chunks $ pdiff' p
-        go ls'
-      | otherwise = hPutStrLn out l >> go ls
-    go [] = pure ()
-    patchLine (' ':_) = True
-    patchLine ('-':_) = True
-    patchLine ('+':_) = True
-    patchLine _ = False
-
 runCmd :: Command -> Config -> IO ()
 runCmd CmdDiff3 {..} cfg =
   withSystemTempDirectory "werge-diff3" $ \workdir -> do
@@ -361,21 +343,12 @@ runCmd CmdDiff {..} cfg = do
 runCmd CmdPatch {..} cfg = do
   withSystemTempDirectory "werge-patch" $ \workdir -> do
     let f = workdir </> "file"
-    case patchTarget of
-      Just patchMy -> do
-        bracketFile patchMy ReadMode $ \h -> hSplitToFile cfg h f
-        _ <-
-          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)
-          else exitSuccess
-      Nothing -> do
-        case patchInput of
-          Nothing -> fmtPatch cfg stdout stdin
-          Just path -> bracketFile path ReadMode $ fmtPatch cfg stdout
+    bracketFile patchMy ReadMode $ \h -> hSplitToFile cfg h f
+    _ <- runPatch f stdin
+    conflicted <- pmerge f >>= format cfg stdout -- TODO try to resolve more?
+    if conflicted
+      then exitWith (ExitFailure 1)
+      else exitSuccess
 runCmd CmdBreak cfg = hSplit cfg stdin stdout
 runCmd CmdGlue _ = getContents >>= putStr . Toks.glue . Toks.fromFile
 

Opts.hs

@@ -229,8 +229,7 @@ data Command
       , diffUnified :: Maybe Int
       }
   | CmdPatch
-      { patchTarget :: Maybe FilePath
-      , patchInput :: Maybe FilePath
+      { patchMy :: FilePath
       }
   | CmdBreak
   | CmdGlue
@@ -295,21 +294,7 @@ cmdDiff = do
 
 cmdPatch :: Parser Command
 cmdPatch = do
-  patchTarget <-
-    asum
-      [ Just <$> strArgument (metavar "MYFILE" <> help "File to be patched")
-      , flag' Nothing
-          $ long "format"
-              <> short 'f'
-              <> help
-                   "Do not patch anything, only format the patch using conflict marks on joined tokens"
-      ]
-  patchInput <-
-    optional . strOption
-      $ long "patch"
-          <> short 'p'
-          <> metavar "PATCH"
-          <> help "File with the patch (default: stdin)"
+  patchMy <- strArgument $ metavar "MYFILE" <> help "File to be modified"
   pure CmdPatch {..}
 
 -- TODO have some option to output the (partially merged) my/old/your files so
@@ -329,7 +314,7 @@ cmd =
             $ progDesc "Find differences between two files"
         , command "patch"
             $ info cmdPatch
-            $ progDesc "Modify a file using a patch from `diff'"
+            $ progDesc "Apply a patch from `diff' to file"
         , command "break"
             $ info (pure CmdBreak)
             $ progDesc "Break text to tokens"

README.md

@@ -279,15 +279,12 @@ Available options:
 
 #### Patching files in place
 ```
-Usage: werge patch (MYFILE | (-f|--format)) [-p|--patch PATCH]
+Usage: werge patch MYFILE
 
-  Modify a file using a patch from `diff'
+  Apply a patch from `diff' to file
 
 Available options:
-  MYFILE                   File to be patched
-  -f,--format              Do not patch anything, only format the patch using
-                           conflict marks on joined tokens
-  -p,--patch PATCH         File with the patch (default: stdin)
+  MYFILE                   File to be modified
   -h,--help                Show this help text
 ```
 

werge.cabal

@@ -1,6 +1,6 @@
 cabal-version:   3.0
 name:            werge
-version:         0.2.0.0
+version:         0.1.0.0
 synopsis:        mergetool for mangled-up bite-size changes
 license:         GPL-3.0-or-later
 license-file:    LICENSE