From 1ffdfbe7164e7f748d7e62f7a87226f8e440980c Mon Sep 17 00:00:00 2001
From: Dmitry Zuikov <dzuikov@gmail.com>
Date: Fri, 30 Aug 2024 15:30:09 +0300
Subject: [PATCH] wip

---
 cabal.project              | 4 ++++
 fixme-new/lib/Fixme/Run.hs | 4 +++-
 flake.nix                  | 2 ++
 3 files changed, 9 insertions(+), 1 deletion(-)

diff --git a/cabal.project b/cabal.project
index 8d3541dc..6aa08e16 100644
--- a/cabal.project
+++ b/cabal.project
@@ -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
diff --git a/fixme-new/lib/Fixme/Run.hs b/fixme-new/lib/Fixme/Run.hs
index eaa6454e..eea2d299 100644
--- a/fixme-new/lib/Fixme/Run.hs
+++ b/fixme-new/lib/Fixme/Run.hs
@@ -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
diff --git a/flake.nix b/flake.nix
index 691984b2..5e5c5adf 100644
--- a/flake.nix
+++ b/flake.nix
@@ -105,6 +105,8 @@ outputs = { self, nixpkgs, haskell-flake-utils, ... }@inputs:
 
    ];
 
+  shellWithHoogle = true;
+
    shell = {pkgs, ...}:
       pkgs.haskellPackages.shellFor {
         packages = _: pkgs.lib.attrsets.attrVals packageNames pkgs.haskellPackages;