From 7b76badabaaef215618ae67a84c4ff33c4b8b450 Mon Sep 17 00:00:00 2001
From: stuebinm
Date: Thu, 23 Dec 2021 22:14:34 +0100
Subject: correct recognision of entrypoints in sublayers

also, the recursive check layer function slowly approaches something
like readability!
---
 lib/LintWriter.hs | 2 ++
 1 file changed, 2 insertions(+)

(limited to 'lib/LintWriter.hs')

diff --git a/lib/LintWriter.hs b/lib/LintWriter.hs
index fa8207b..5a6fc7d 100644
--- a/lib/LintWriter.hs
+++ b/lib/LintWriter.hs
@@ -7,6 +7,7 @@
 {-# LANGUAGE OverloadedStrings #-}
 {-# LANGUAGE RankNTypes        #-}
 {-# LANGUAGE TupleSections     #-}
+{-# LANGUAGE DeriveFunctor     #-}
 {-# OPTIONS_GHC -Wno-missing-signatures #-}
 
 -- | a monad that collects warnings, outputs, etc,
@@ -67,6 +68,7 @@ type LintWriter' ctxt res =
 -- | it already collected.
 newtype LinterState ctxt = LinterState
   { fromLinterState :: ([Lint], ctxt)}
+  deriving Functor
 
 -- | The result of running a linter: an adjusted context, and a list of lints.
 -- | This is actually just a type synonym of LinterState, but kept seperately
-- 
cgit v1.2.3