more cabal file cleanups

This commit is contained in:
sheaf 2023-01-09 02:54:42 +01:00
parent cca4558985
commit 22820b328d
27 changed files with 72 additions and 48 deletions

View file

@ -60,13 +60,11 @@ common common
DeriveTraversable DeriveTraversable
DeriveGeneric DeriveGeneric
DerivingVia DerivingVia
DuplicateRecordFields
FlexibleContexts FlexibleContexts
FlexibleInstances FlexibleInstances
FunctionalDependencies FunctionalDependencies
GADTs GADTs
GeneralisedNewtypeDeriving GeneralisedNewtypeDeriving
ImplicitParams
InstanceSigs InstanceSigs
LambdaCase LambdaCase
LexicalNegation LexicalNegation
@ -74,11 +72,8 @@ common common
MultiWayIf MultiWayIf
NamedFieldPuns NamedFieldPuns
PatternSynonyms PatternSynonyms
QuantifiedConstraints
RankNTypes RankNTypes
RecordWildCards RecordWildCards
RecursiveDo
ScopedTypeVariables
StandaloneDeriving StandaloneDeriving
StandaloneKindSignatures StandaloneKindSignatures
TupleSections TupleSections
@ -86,7 +81,6 @@ common common
TypeFamilies TypeFamilies
TypeOperators TypeOperators
UnboxedTuples UnboxedTuples
UndecidableInstances
ViewPatterns ViewPatterns
ghc-options: ghc-options:
@ -105,6 +99,16 @@ common common
-fwarn-missing-deriving-strategies -fwarn-missing-deriving-strategies
-fno-warn-unticked-promoted-constructors -fno-warn-unticked-promoted-constructors
if flag(asserts)
cpp-options:
-DASSERTS
autogen-modules:
Paths_MetaBrush
other-modules:
Paths_MetaBrush
common extras common extras
build-depends: build-depends:
@ -190,6 +194,7 @@ library splines
, vector , vector
>= 0.12.1.2 && < 0.14 >= 0.12.1.2 && < 0.14
library metabrushes library metabrushes
import: import:
@ -214,14 +219,6 @@ library metabrushes
, MetaBrush.Serialisable , MetaBrush.Serialisable
, MetaBrush.Unique , MetaBrush.Unique
, MetaBrush.Util , MetaBrush.Util
, Paths_MetaBrush
autogen-modules:
Paths_MetaBrush
if flag(asserts)
cpp-options:
-DASSERTS
build-depends: build-depends:
splines splines
@ -229,12 +226,6 @@ library metabrushes
^>= 0.3.0.0 ^>= 0.3.0.0
, bytestring , bytestring
>= 0.10.10.0 && < 0.12 >= 0.10.10.0 && < 0.12
, dlist
^>= 1.0
, Earley
^>= 0.13.0.1
, tree-view
^>= 0.5
executable convert-metafont executable convert-metafont
@ -305,18 +296,10 @@ executable MetaBrush
, MetaBrush.UI.ToolBar , MetaBrush.UI.ToolBar
, MetaBrush.UI.Viewport , MetaBrush.UI.Viewport
, MetaBrush.Time , MetaBrush.Time
, Paths_MetaBrush
autogen-modules:
Paths_MetaBrush
ghc-options: ghc-options:
-threaded -rtsopts -threaded -rtsopts
if flag(asserts)
cpp-options:
-DASSERTS
build-depends: build-depends:
splines splines
, metabrushes , metabrushes

View file

@ -1,5 +1,6 @@
{-# LANGUAGE OverloadedLabels #-} {-# LANGUAGE OverloadedLabels #-}
{-# LANGUAGE OverloadedStrings #-} {-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE RecursiveDo #-}
module MetaBrush.Application module MetaBrush.Application
( runApplication ) ( runApplication )

View file

@ -1,4 +1,5 @@
{-# LANGUAGE OverloadedStrings #-} {-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE ScopedTypeVariables #-}
module MetaBrush.Document.Selection module MetaBrush.Document.Selection
( SelectionMode(..), selectionMode ( SelectionMode(..), selectionMode

View file

@ -1,3 +1,6 @@
{-# LANGUAGE ImplicitParams #-}
{-# LANGUAGE ScopedTypeVariables #-}
module MetaBrush.Event module MetaBrush.Event
( handleEvents ) ( handleEvents )
where where

View file

@ -1,3 +1,5 @@
{-# LANGUAGE ScopedTypeVariables #-}
module MetaBrush.GTK.Util module MetaBrush.GTK.Util
( withRGBA, showRGBA ( withRGBA, showRGBA
, widgetAddClasses, widgetAddClass , widgetAddClasses, widgetAddClass

View file

@ -1,5 +1,6 @@
{-# LANGUAGE AllowAmbiguousTypes #-} {-# LANGUAGE AllowAmbiguousTypes #-}
{-# LANGUAGE OverloadedStrings #-} {-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE ScopedTypeVariables #-}
module MetaBrush.Render.Document module MetaBrush.Render.Document
( getDocumentRender, blankRender ) ( getDocumentRender, blankRender )

View file

@ -1,3 +1,5 @@
{-# LANGUAGE ScopedTypeVariables #-}
module MetaBrush.Render.Rulers module MetaBrush.Render.Rulers
( renderRuler ) ( renderRuler )
where where

View file

@ -1,4 +1,6 @@
{-# LANGUAGE AllowAmbiguousTypes #-} {-# LANGUAGE AllowAmbiguousTypes #-}
{-# LANGUAGE ScopedTypeVariables #-}
{-# LANGUAGE UndecidableInstances #-}
module MetaBrush.Brush module MetaBrush.Brush
( Brush(..), SomeBrush(..), BrushFunction ( Brush(..), SomeBrush(..), BrushFunction

View file

@ -1,6 +1,5 @@
{-# LANGUAGE OverloadedStrings #-} {-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE UndecidableInstances #-}
{-# OPTIONS_GHC -fno-warn-orphans #-}
module MetaBrush.Document module MetaBrush.Document
( AABB(..), mkAABB ( AABB(..), mkAABB

View file

@ -1,4 +1,5 @@
{-# LANGUAGE OverloadedStrings #-} {-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE ScopedTypeVariables #-}
module MetaBrush.Document.Draw module MetaBrush.Document.Draw
( DrawAnchor(..), anchorsAreComplementary ( DrawAnchor(..), anchorsAreComplementary

View file

@ -1,5 +1,6 @@
{-# LANGUAGE AllowAmbiguousTypes #-} {-# LANGUAGE AllowAmbiguousTypes #-}
{-# LANGUAGE OverloadedStrings #-} {-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE ScopedTypeVariables #-}
module MetaBrush.Document.Serialise module MetaBrush.Document.Serialise
( documentToJSON, documentFromJSON ( documentToJSON, documentFromJSON

View file

@ -1,4 +1,5 @@
{-# LANGUAGE OverloadedStrings #-} {-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE ScopedTypeVariables #-}
module MetaBrush.Document.SubdivideStroke module MetaBrush.Document.SubdivideStroke
( subdivide ) ( subdivide )

View file

@ -1,5 +1,7 @@
{-# LANGUAGE AllowAmbiguousTypes #-} {-# LANGUAGE AllowAmbiguousTypes #-}
{-# LANGUAGE PolyKinds #-} {-# LANGUAGE PolyKinds #-}
{-# LANGUAGE ScopedTypeVariables #-}
{-# LANGUAGE UndecidableInstances #-}
module MetaBrush.Records where module MetaBrush.Records where

View file

@ -1,4 +1,6 @@
{-# LANGUAGE OverloadedStrings #-} {-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE ScopedTypeVariables #-}
{-# LANGUAGE UndecidableInstances #-}
module MetaBrush.Serialisable module MetaBrush.Serialisable
( Serialisable(..) ( Serialisable(..)

View file

@ -1,4 +1,5 @@
{-# LANGUAGE OverloadedStrings #-} {-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE UndecidableInstances #-}
module MetaBrush.Unique module MetaBrush.Unique
( MonadUnique(freshUnique) ( MonadUnique(freshUnique)

View file

@ -1,4 +1,6 @@
{-# LANGUAGE AllowAmbiguousTypes #-} {-# LANGUAGE AllowAmbiguousTypes #-}
{-# LANGUAGE ScopedTypeVariables #-}
{-# LANGUAGE UndecidableInstances #-}
module Math.Bezier.Cubic module Math.Bezier.Cubic
( Bezier(..) ( Bezier(..)

View file

@ -1,3 +1,5 @@
{-# LANGUAGE ScopedTypeVariables #-}
module Math.Bezier.Cubic.Fit module Math.Bezier.Cubic.Fit
( FitParameters(..), FitPoint(..) ( FitParameters(..), FitPoint(..)
, fitSpline, fitPiece , fitSpline, fitPiece

View file

@ -1,3 +1,6 @@
{-# LANGUAGE ScopedTypeVariables #-}
-- TODO: unused module.
module Math.Bezier.Envelope where module Math.Bezier.Envelope where
-- acts -- acts

View file

@ -1,4 +1,6 @@
{-# LANGUAGE AllowAmbiguousTypes #-} {-# LANGUAGE AllowAmbiguousTypes #-}
{-# LANGUAGE ScopedTypeVariables #-}
{-# LANGUAGE UndecidableInstances #-}
module Math.Bezier.Quadratic module Math.Bezier.Quadratic
( Bezier(..) ( Bezier(..)

View file

@ -1,3 +1,7 @@
{-# LANGUAGE QuantifiedConstraints #-}
{-# LANGUAGE ScopedTypeVariables #-}
{-# LANGUAGE UndecidableInstances #-}
module Math.Bezier.Spline where module Math.Bezier.Spline where
-- base -- base

View file

@ -1,6 +1,5 @@
{-# LANGUAGE AllowAmbiguousTypes #-} {-# LANGUAGE AllowAmbiguousTypes #-}
{-# LANGUAGE ScopedTypeVariables #-}
{-# OPTIONS_GHC -Wno-type-defaults #-}
module Math.Bezier.Stroke module Math.Bezier.Stroke
( Offset(..) ( Offset(..)

View file

@ -1,3 +1,5 @@
{-# LANGUAGE ScopedTypeVariables #-}
module Math.Epsilon module Math.Epsilon
( epsilon, nearZero ) ( epsilon, nearZero )
where where

View file

@ -1,5 +1,6 @@
{-# LANGUAGE AllowAmbiguousTypes #-} {-# LANGUAGE AllowAmbiguousTypes #-}
{-# LANGUAGE PolyKinds #-} {-# LANGUAGE PolyKinds #-}
{-# LANGUAGE ScopedTypeVariables #-}
{-# LANGUAGE UnliftedNewtypes #-} {-# LANGUAGE UnliftedNewtypes #-}
module Math.Linear module Math.Linear

View file

@ -1,4 +1,6 @@
{-# LANGUAGE AllowAmbiguousTypes #-} {-# LANGUAGE AllowAmbiguousTypes #-}
{-# LANGUAGE DuplicateRecordFields #-}
{-# LANGUAGE UndecidableInstances #-}
module Math.Linear.Dual where module Math.Linear.Dual where

View file

@ -1,4 +1,6 @@
{-# LANGUAGE AllowAmbiguousTypes #-} {-# LANGUAGE AllowAmbiguousTypes #-}
{-# LANGUAGE ScopedTypeVariables #-}
{-# LANGUAGE UndecidableInstances #-}
module Math.Module module Math.Module
( Module(..), lerp ( Module(..), lerp

View file

@ -1,4 +1,5 @@
{-# LANGUAGE AllowAmbiguousTypes #-} {-# LANGUAGE AllowAmbiguousTypes #-}
{-# LANGUAGE ScopedTypeVariables #-}
module Math.Orientation module Math.Orientation
( Orientation(..), reverseOrientation ( Orientation(..), reverseOrientation

View file

@ -1,3 +1,5 @@
{-# LANGUAGE ScopedTypeVariables #-}
module Math.Roots where module Math.Roots where
-- base -- base