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-08-30 15:30:09 +03:00
parent ec4f9b6dce
commit 1ffdfbe716
3 changed files with 9 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
cabal.project
View File

@ -9,6 +9,10 @@ constraints:
, suckless-conf >= 0.1.2.7 , suckless-conf >= 0.1.2.7
, http-client >=0.7.16 && <0.8 , http-client >=0.7.16 && <0.8
haddock-hoogle: true
haddock-html: true
-- executable-static: True -- executable-static: True
-- profiling: True -- profiling: True
-- library-profiling: False -- library-profiling: False

4
fixme-new/lib/Fixme/Run.hs
View File

@ -48,7 +48,7 @@ import System.IO.Temp as Temp
import System.IO qualified as IO import System.IO qualified as IO
{- HLINT Ignore "Functor law" -} {- HLINT ignore "Functor law" -}
withFixmeCLI :: FixmePerks m => FixmeEnv -> FixmeM m a -> m a withFixmeCLI :: FixmePerks m => FixmeEnv -> FixmeM m a -> m a
withFixmeCLI env m = do withFixmeCLI env m = do
@ -222,6 +222,8 @@ runTop forms = do
atomically $ writeTVar t action atomically $ writeTVar t action
_ -> throwIO $ BadFormException @C nil
entry $ bindMatch "fixme-def-context" $ nil_ \case entry $ bindMatch "fixme-def-context" $ nil_ \case
[LitIntVal a, LitIntVal b] -> do [LitIntVal a, LitIntVal b] -> do
t <- lift $ asks fixmeEnvCatContext t <- lift $ asks fixmeEnvCatContext

2
flake.nix
View File

@ -105,6 +105,8 @@ outputs = { self, nixpkgs, haskell-flake-utils, ... }@inputs:
]; ];
shellWithHoogle = true;
shell = {pkgs, ...}: shell = {pkgs, ...}:
pkgs.haskellPackages.shellFor { pkgs.haskellPackages.shellFor {
packages = _: pkgs.lib.attrsets.attrVals packageNames pkgs.haskellPackages; packages = _: pkgs.lib.attrsets.attrVals packageNames pkgs.haskellPackages;