From ddff54964ec78dd3e2a688f4525b39e41b82b5f0 Mon Sep 17 00:00:00 2001 From: adelon <22380201+adelon@users.noreply.github.com> Date: Wed, 16 Jul 2025 21:48:35 +0200 Subject: Relax label syntax --- source/Base.hs | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'source/Base.hs') diff --git a/source/Base.hs b/source/Base.hs index e7b827f..a407831 100644 --- a/source/Base.hs +++ b/source/Base.hs @@ -28,15 +28,16 @@ import Data.Foldable as Export import Data.Function as Export (on) import Data.Functor as Export (void) import Data.Hashable as Export (Hashable(..)) +import Data.HashMap.Strict as Export (HashMap) +import Data.HashSet as Export (HashSet) import Data.IntMap.Strict as Export (IntMap) import Data.List.NonEmpty as Export (NonEmpty(..)) import Data.List.NonEmpty qualified as NonEmpty import Data.Map as Export (Map) import Data.Maybe as Export hiding (mapMaybe, catMaybes) -- Replaced by generalized form from "Data.Filtrable". +import Data.Monoid (First(..)) import Data.Sequence as Export (Seq(..), replicateA) import Data.Set as Export (Set) -import Data.HashSet as Export (HashSet) -import Data.HashMap.Strict as Export (HashMap) import Data.String as Export (IsString(..)) import Data.Text as Export (Text) import Data.Traversable as Export @@ -46,7 +47,6 @@ import Debug.Trace as Export import GHC.Generics as Export (Generic(..), Generic1(..)) import Prettyprinter as Export (pretty) import UnliftIO as Export (throwIO) -import Data.Monoid (First(..)) -- | Signal to the developer that a branch is unreachable or represent -- an impossible state. Using @impossible@ instead of @error@ allows -- cgit v1.2.3