mirror of https://github.com/voidlizard/hbs2
wip
This commit is contained in:
parent
ec4f9b6dce
commit
1ffdfbe716
|
@ -9,6 +9,10 @@ constraints:
|
|||
, suckless-conf >= 0.1.2.7
|
||||
, http-client >=0.7.16 && <0.8
|
||||
|
||||
haddock-hoogle: true
|
||||
|
||||
haddock-html: true
|
||||
|
||||
-- executable-static: True
|
||||
-- profiling: True
|
||||
-- library-profiling: False
|
||||
|
|
|
@ -48,7 +48,7 @@ import System.IO.Temp as Temp
|
|||
import System.IO qualified as IO
|
||||
|
||||
|
||||
{- HLINT Ignore "Functor law" -}
|
||||
{- HLINT ignore "Functor law" -}
|
||||
|
||||
withFixmeCLI :: FixmePerks m => FixmeEnv -> FixmeM m a -> m a
|
||||
withFixmeCLI env m = do
|
||||
|
@ -222,6 +222,8 @@ runTop forms = do
|
|||
|
||||
atomically $ writeTVar t action
|
||||
|
||||
_ -> throwIO $ BadFormException @C nil
|
||||
|
||||
entry $ bindMatch "fixme-def-context" $ nil_ \case
|
||||
[LitIntVal a, LitIntVal b] -> do
|
||||
t <- lift $ asks fixmeEnvCatContext
|
||||
|
|
Loading…
Reference in New Issue