`hit fix` - make commit and push

[kowainik]

`hit fix` - make commit and push

[Jigar3]

I have started working on it. Will submit a PR soon. 😀

[chshersh]

@Jigar3 hi! I wonder, do you still have plans on finish this issue? Otherwise we would like to proceed with it and finish soon 🙂

[Jigar3]

runFix :: Maybe Text -> IO ()
runFix = \case
    Nothing -> do
        "git" ["add", "."]
        "git" ["commit", "-m", "Fix after review"]
        runPush False
    Just msg -> do
        "git" ["add", "."]
        "git" ["commit", "-m "] ++ msg
        runPush False

Error:

• Couldn't match expected type ‘[a1]’ with actual type ‘Text’
• In the second argument of ‘(++)’, namely ‘msg’

I am getting this error and am not sure if its the correct approach. Could you guide me please 😅

[chshersh]

@Jigar3 The problem is in this line:

"git" ["commit", "-m "] ++ msg

You want to append msg to the list ["commit", "-m "] but instead you're appending it to function call "git" ["commit", "-m "]. What you want is something like:

"git" $ ["commit", "-m "] ++ [msg]

Or just

"git" ["commit", "-m ", msg]

Also you may notice some code duplication in your function. Instead of pattern-matching on Maybe on top level you can just construct message text from that Maybe Text and pass it to "git" inside list. I hope that helps!