mirror of
https://github.com/anoma/juvix.git
synced 2024-10-05 20:47:36 +03:00
get a bigger lens
This commit is contained in:
parent
20318f6742
commit
270a287f88
@ -78,7 +78,7 @@ dependencies:
|
||||
- megaparsec == 9.6.*
|
||||
- commonmark == 0.2.*
|
||||
- parsec == 3.1.*
|
||||
- microlens-platform == 0.4.*
|
||||
- lens == 5.2.*
|
||||
- parser-combinators == 1.3.*
|
||||
- path == 0.9.*
|
||||
- path-io == 1.8.*
|
||||
|
@ -6,7 +6,6 @@ import Data.Aeson.TH
|
||||
import Juvix.Data.Emacs
|
||||
import Juvix.Extra.Strings qualified as Str
|
||||
import Juvix.Prelude
|
||||
import Lens.Micro.Platform qualified as Lens
|
||||
|
||||
data GenericProperty = GenericProperty
|
||||
{ _gpropProperty :: Text,
|
||||
@ -111,7 +110,7 @@ type RawType = Text
|
||||
|
||||
$( deriveToJSON
|
||||
defaultOptions
|
||||
{ fieldLabelModifier = over Lens._head toLower . dropPrefix "_rawProperties",
|
||||
{ fieldLabelModifier = over _head toLower . dropPrefix "_rawProperties",
|
||||
constructorTagModifier = map toLower
|
||||
}
|
||||
''RawProperties
|
||||
|
@ -15,7 +15,6 @@ import Juvix.Extra.Strings qualified as Str
|
||||
import Juvix.Extra.Version
|
||||
import Juvix.Prelude hiding ((.=))
|
||||
import Juvix.Prelude.Aeson
|
||||
import Lens.Micro.Platform qualified as Lens
|
||||
|
||||
data LockfileDependency = LockfileDependency
|
||||
{ _lockfileDependencyDependency :: Dependency,
|
||||
@ -110,7 +109,7 @@ instance FromJSON LockfileDependency where
|
||||
lockfileV2Options :: Options
|
||||
lockfileV2Options =
|
||||
defaultOptions
|
||||
{ fieldLabelModifier = over Lens._head toLower . dropPrefix "_lockfileV2",
|
||||
{ fieldLabelModifier = over _head toLower . dropPrefix "_lockfileV2",
|
||||
rejectUnknownFields = True,
|
||||
omitNothingFields = True
|
||||
}
|
||||
|
@ -12,7 +12,6 @@ import Juvix.Compiler.Pipeline.Lockfile
|
||||
import Juvix.Compiler.Pipeline.Package.Dependency
|
||||
import Juvix.Extra.Paths
|
||||
import Juvix.Prelude
|
||||
import Lens.Micro.Platform qualified as Lens
|
||||
|
||||
data BuildDir
|
||||
= DefaultBuildDir
|
||||
@ -72,7 +71,7 @@ deriving stock instance Show Package
|
||||
rawPackageOptions :: Options
|
||||
rawPackageOptions =
|
||||
defaultOptions
|
||||
{ fieldLabelModifier = over Lens._head toLower . dropPrefix "_package",
|
||||
{ fieldLabelModifier = over _head toLower . dropPrefix "_package",
|
||||
rejectUnknownFields = True,
|
||||
omitNothingFields = True
|
||||
}
|
||||
|
@ -10,7 +10,6 @@ import Data.Yaml hiding ((.=))
|
||||
import Juvix.Extra.Strings qualified as Str
|
||||
import Juvix.Prelude hiding ((.=))
|
||||
import Juvix.Prelude.Pretty
|
||||
import Lens.Micro.Platform qualified as Lens
|
||||
|
||||
data Dependency
|
||||
= DependencyPath PathDependency
|
||||
@ -90,7 +89,7 @@ instance FromJSON PathDependency where
|
||||
gitDependencyOptions :: Options
|
||||
gitDependencyOptions =
|
||||
defaultOptions
|
||||
{ fieldLabelModifier = over Lens._head toLower . dropPrefix "_gitDependency",
|
||||
{ fieldLabelModifier = over _head toLower . dropPrefix "_gitDependency",
|
||||
rejectUnknownFields = True,
|
||||
omitNothingFields = True
|
||||
}
|
||||
|
@ -50,7 +50,7 @@ module Juvix.Prelude.Base.Foundation
|
||||
module GHC.Generics,
|
||||
module GHC.Num,
|
||||
module GHC.Real,
|
||||
module Lens.Micro.Platform,
|
||||
module Control.Lens,
|
||||
module Language.Haskell.TH.Syntax,
|
||||
module Prettyprinter,
|
||||
module Numeric,
|
||||
@ -80,6 +80,40 @@ where
|
||||
|
||||
import Control.Applicative
|
||||
import Control.DeepSeq
|
||||
import Control.Lens hiding
|
||||
( Context,
|
||||
Index,
|
||||
Indexed,
|
||||
Level,
|
||||
List,
|
||||
argument,
|
||||
au,
|
||||
below,
|
||||
children,
|
||||
cons,
|
||||
cosmos,
|
||||
enum,
|
||||
from,
|
||||
holes,
|
||||
ignored,
|
||||
imapM,
|
||||
indexed,
|
||||
indices,
|
||||
inside,
|
||||
op,
|
||||
para,
|
||||
parts,
|
||||
pre,
|
||||
re,
|
||||
repeated,
|
||||
rmap,
|
||||
snoc,
|
||||
uncons,
|
||||
universe,
|
||||
unsnoc,
|
||||
(#),
|
||||
(<.>),
|
||||
)
|
||||
import Control.Monad.Catch (ExitCase (..), MonadMask, MonadThrow, generalBracket, throwM)
|
||||
import Control.Monad.Extra hiding (fail, forM, mconcatMapM, whileJustM)
|
||||
import Control.Monad.Extra qualified as Monad
|
||||
@ -161,7 +195,6 @@ import GHC.Num
|
||||
import GHC.Real
|
||||
import GHC.Stack.Types
|
||||
import Language.Haskell.TH.Syntax (Exp, Lift, Q)
|
||||
import Lens.Micro.Platform
|
||||
import Numeric hiding (exp, log, pi)
|
||||
import Path (Abs, Dir, File, Path, Rel, SomeBase (..))
|
||||
import Path qualified as PPath
|
||||
@ -206,6 +239,10 @@ type GHCConstraint = GHC.Constraint
|
||||
|
||||
type LazyHashMap = LazyHashMap.HashMap
|
||||
|
||||
type SimpleFold s a = forall r. (Monoid r) => Getting r s a
|
||||
|
||||
type SimpleGetter s a = forall r. Getting r s a
|
||||
|
||||
type ImpliesK :: Bool -> GHCConstraint -> GHCConstraint
|
||||
type family ImpliesK cond k = res where
|
||||
ImpliesK 'True k = k
|
||||
|
Loading…
Reference in New Issue
Block a user