A-gent 0.11.0.8 → 0.11.0.9
raw patch · 3 files changed
+15/−7 lines, 3 filesPVP ok
version bump matches the API change (PVP)
API changes (from Hackage documentation)
Files
- A-gent.cabal +1/−1
- CHANGELOG.md +5/−1
- src/Agent/LLM.hs +9/−5
A-gent.cabal view
@@ -9,7 +9,7 @@ build-type: Simple name: A-gent-version: 0.11.0.8+version: 0.11.0.9 synopsis: Polite & well educated LLM agent with excellent manners that always behaves well description: Polite and well educated LLM agent with excellent manners that always behaves well
CHANGELOG.md view
@@ -1,5 +1,9 @@ # Revision history for Λ-gent +## 0.11.0.9 -- 2026-04-16++* Minor bug fixes.+ ## 0.11.0.8 -- 2026-04-15 * Refactored `/pile` to no longer storing a `find` filter but the absolute path@@ -31,7 +35,7 @@ > **NOTE**: Fix is not verified. Well, this update will confirm (or not). - * Package is NO longer marked as broken: <https://github.com/NixOS/nixpkgs/blob/haskell-updates/pkgs/development/haskell-modules/configuration-hackage2nix/broken.yaml»+ * Package is NO longer marked as broken: https://github.com/NixOS/nixpkgs/blob/haskell-updates/pkgs/development/haskell-modules/configuration-hackage2nix/broken.yaml * Added `withExitCodeStdIn` as `curl` has a limit on data that can be sent as a parameter.
src/Agent/LLM.hs view
@@ -203,7 +203,7 @@ ( mapM_ printLn . COM.combine . COM.chits True . prev . chit . hist ) ctx >> printLn "* Chats:" >>- ( mapM_ print . COM.combine . COM.chats True . chat . hist+ ( mapM_ printLn . COM.combine . COM.chats True . chat . hist ) ctx >> loop (ctx { hist = ((hist ctx) { view = [] }) }) eval Context { hist = History { view = [ Chits ] } } ->@@ -232,9 +232,6 @@ case root ctx of Just (INT.Root cs) -> cs Nothing -> []- Context { list = Just _ } ->- eval ctx [ ] >>= \ (upd, _) ->- loop upd eval Context { file = Just _ } -> eval ctx [ ] >>= \ (upd, res) -> printLn res >>@@ -412,6 +409,12 @@ ' ':cs -> readMaybe cs :: Maybe Int ______ -> Nothing caseList txt mfil =+ ( case fil of+ Nothing ->+ printLn "Invalid use of list. Use space between cmd and filter"+ _______ ->+ pure ()+ ) >> loop (nxt txt (ctx { list = fil }) Nothing) eval where fil =@@ -452,7 +455,8 @@ (show . AEC.bold . AEC.sgr) ("Λ-" ++ (map toLower . show . mode) ctx ++ "> ") read = input- print = output . show . AEC.faint . AEC.sgr+ -- print = output . show . AEC.faint . AEC.sgr+ print = output printLn x = print $ x ++ "\n" head :: String