voidlizard
/
hbs2
mirror of https://github.com/voidlizard/hbs2
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

wip

This commit is contained in:
Dmitry Zuikov 2024-09-10 11:01:22 +03:00
parent 2f175f3cea
commit 7a826746f5
1 changed files with 11 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
fixme-new/lib/Fixme/Run/Internal.hs
View File

@ -280,6 +280,8 @@ cat_ hash = do
CatAction action <- asks fixmeEnvCatAction >>= readTVarIO CatAction action <- asks fixmeEnvCatAction >>= readTVarIO
dir <- fixmeWorkDir
void $ flip runContT pure do void $ flip runContT pure do
callCC \exit -> do callCC \exit -> do
@ -289,7 +291,7 @@ cat_ hash = do
fme' <- lift $ getFixme ha fme' <- lift $ getFixme ha
Fixme{..} <- ContT $ maybe1 fme' (pure ()) fx@Fixme{..} <- ContT $ maybe1 fme' (pure ())
let gh' = HM.lookup "blob" fixmeAttr let gh' = HM.lookup "blob" fixmeAttr
@ -310,14 +312,15 @@ cat_ hash = do
debug (pretty cmd) debug (pretty cmd)
let text = fixmePlain & LBS.fromStrict . encodeUtf8 . Text.unlines . fmap coerce
w <- gitRunCommand cmd w <- gitRunCommand cmd
<&> fromRight text <&> either (const Nothing) Just
<&> LBS8.lines
<&> drop start
<&> take lno
liftIO $ action dict (LBS8.unlines w) maybe1 w none $ \lbs -> do
let piece = LBS8.lines lbs & drop start & take lno
liftIO $ action dict (LBS8.unlines piece)
exit ()
let fallback = LBS8.unlines $ fmap (LBS8.fromStrict . encodeUtf8 . coerce) fixmePlain
liftIO $ action dict fallback