Skip to content

H
haskell-gargantext
Commit adabce2d authored by Alexandre Delanoë's avatar Alexandre Delanoë
Browse files
Options

[ADMIN] LTS stack upgrade

parent 0f3fbe9c
Hide whitespace changes
Inline Side-by-side
Showing with 265 additions and 212 deletions
src/Gargantext/API/Ngrams/List.hs
View file @ adabce2d
......@@ -126,6 +126,10 @@ makeLenses ''WithFile
instance FromForm WithFile
instance FromJSON WithFile where
parseJSON = genericParseJSON $ jsonOptions "_wf_"
instance ToJSON WithFile where
toJSON = genericToJSON $ jsonOptions "_wf_"
instance ToSchema WithFile where
declareNamedSchema = genericDeclareNamedSchema (unPrefixSwagger "_wf_")
src/Gargantext/API/Ngrams/Types.hs
View file @ adabce2d
......@@ -782,6 +782,10 @@ data UpdateTableNgramsCharts = UpdateTableNgramsCharts
makeLenses ''UpdateTableNgramsCharts
instance FromJSON UpdateTableNgramsCharts where
parseJSON = genericParseJSON $ jsonOptions "_utn_"
instance ToJSON UpdateTableNgramsCharts where
toJSON = genericToJSON $ jsonOptions "_utn_"
instance ToSchema UpdateTableNgramsCharts where
declareNamedSchema = genericDeclareNamedSchema (unPrefixSwagger "_utn_")
......
src/Gargantext/API/Node.hs
View file @ adabce2d
......@@ -192,6 +192,8 @@ nodeAPI :: forall proxy a.
( JSONB a
, FromJSON a
, ToJSON a
, MimeRender JSON a
, MimeUnrender JSON a
) => proxy a
-> UserId
-> NodeId
......
src/Gargantext/API/Node/Corpus/Annuaire.hs
View file @ adabce2d
......@@ -49,6 +49,9 @@ makeLenses ''AnnuaireWithForm
instance FromForm AnnuaireWithForm
instance FromJSON AnnuaireWithForm where
parseJSON = genericParseJSON $ jsonOptions "_wf_"
instance ToJSON AnnuaireWithForm where
toJSON = genericToJSON $ jsonOptions "_wf_"
instance ToSchema AnnuaireWithForm where
declareNamedSchema = genericDeclareNamedSchema (unPrefixSwagger "_wf_")
......
src/Gargantext/API/Node/Corpus/New.hs
View file @ adabce2d
......@@ -155,6 +155,8 @@ data WithQuery = WithQuery
makeLenses ''WithQuery
instance FromJSON WithQuery where
parseJSON = genericParseJSON $ jsonOptions "_wq_"
instance ToJSON WithQuery where
toJSON = genericToJSON $ jsonOptions "_wq_"
instance ToSchema WithQuery where
declareNamedSchema = genericDeclareNamedSchema (unPrefixSwagger "_wq_")
......
src/Gargantext/API/Node/Corpus/New/File.hs
View file @ adabce2d
......@@ -54,6 +54,7 @@ instance Arbitrary FileType
instance ToParamSchema FileType
instance FromJSON FileType
instance ToJSON FileType
instance ToParamSchema (MultipartData Mem) where
toParamSchema _ = toParamSchema (Proxy :: Proxy TODO)
......
src/Gargantext/API/Node/Types.hs
View file @ adabce2d
......@@ -33,6 +33,8 @@ makeLenses ''NewWithForm
instance FromForm NewWithForm
instance FromJSON NewWithForm where
parseJSON = genericParseJSON $ jsonOptions "_wf_"
instance ToJSON NewWithForm where
toJSON = genericToJSON $ jsonOptions "_wf_"
instance ToSchema NewWithForm where
declareNamedSchema = genericDeclareNamedSchema (unPrefixSwagger "_wf_")
......@@ -48,6 +50,10 @@ makeLenses ''NewWithFile
instance FromForm NewWithFile
instance FromJSON NewWithFile where
parseJSON = genericParseJSON $ jsonOptions "_wfi_"
instance ToJSON NewWithFile where
toJSON = genericToJSON $ jsonOptions "_wfi_"
instance ToSchema NewWithFile where
declareNamedSchema = genericDeclareNamedSchema (unPrefixSwagger "_wfi_")
......
src/Gargantext/API/Prelude.hs
View file @ adabce2d
......@@ -71,6 +71,7 @@ type GargServerC env err m =
( CmdRandom env err m
, EnvC env
, ErrC err
, MimeRender JSON err
)
type GargServerT env err m api = GargServerC env err m => ServerT api m
......
src/Gargantext/API/Server.hs
View file @ adabce2d
......@@ -37,7 +37,7 @@ import Gargantext.Prelude.Config (gc_url_backend_api)
import Gargantext.Database.Prelude (hasConfig)
serverGargAPI :: Text -> GargServerM env err GargAPI
serverGargAPI :: MimeRender JSON err => Text -> GargServerM env err GargAPI
serverGargAPI baseUrl -- orchestrator
= auth
:<|> gargVersion
......
src/Gargantext/API/ThrowAll.hs
View file @ adabce2d
......@@ -44,7 +44,7 @@ instance {-# OVERLAPPING #-} ThrowAll' e b => ThrowAll' e (a -> b) where
instance {-# OVERLAPPABLE #-} (MonadError e m) => ThrowAll' e (m a) where
throwAll' = throwError
serverPrivateGargAPI :: GargServerM env err GargPrivateAPI
serverPrivateGargAPI :: MimeRender JSON err => GargServerM env err GargPrivateAPI
serverPrivateGargAPI (Authenticated auser) = serverPrivateGargAPI' auser
serverPrivateGargAPI _ = throwAll' (_ServerError # err401)
-- Here throwAll' requires a concrete type for the monad.
src/Gargantext/Core/Text/Corpus/Parsers/Date.hs
View file @ adabce2d
......@@ -26,7 +26,8 @@ import Data.Time.Clock (UTCTime(..), getCurrentTime)
import Data.Time.LocalTime (utc)
import Data.Time.LocalTime.TimeZone.Series (zonedTimeToZoneSeriesTime)
import Duckling.Api (analyze)
import Duckling.Core (makeLocale, Some(This), Dimension(Time))
import Duckling.Core (makeLocale, Dimension(Time))
import Duckling.Types (Seal(..))
import Duckling.Resolve (fromUTC, Context(Context, referenceTime, locale), DucklingTime(DucklingTime), Options(..))
import Duckling.Types (ResolvedToken(..), ResolvedVal(..))
import Gargantext.Core (Lang(FR,EN))
......@@ -128,7 +129,7 @@ parseDateWithDuckling lang input options = do
contxt <- localContext lang <$> utcToDucklingTime <$> getCurrentTime
--pure $ parseAndResolve (rulesFor (locale ctx) (HashSet.fromList [(This Time)])) input ctx
-- TODO check/test Options False or True
pure $ analyze input contxt options $ HashSet.fromList [(This Time)]
pure $ analyze input contxt options $ HashSet.fromList [(Seal Time)]
src/Gargantext/Core/Viz/Graph/Tools/IGraph.hs
View file @ adabce2d
......@@ -77,7 +77,7 @@ partitions_spinglass' :: (Serialize v, Serialize e)
=> Seed -> IG.Graph 'U v e -> IO [[Int]]
partitions_spinglass' s g = do
gen <- IG.withSeed s pure
pure $ IG.findCommunity g Nothing Nothing IG.spinglass gen
IG.findCommunity g Nothing Nothing IG.spinglass gen
data ClusterNode = ClusterNode { cl_node_id :: Int
......
src/Gargantext/Database/Query/Join.hs
View file @ adabce2d
......@@ -58,42 +58,40 @@ _leftJoin3 :: Query columnsA -> Query columnsB -> Query columnsC
_leftJoin3 q1 q2 q3 cond = ((,,) <$> q1 <*> q2 <*> q3) >>> keepWhen cond
leftJoin3
:: (Default Unpackspec fieldsL1 fieldsL1,
Default Unpackspec fieldsL2 fieldsL2,
Default Unpackspec nullableFieldsR1 nullableFieldsR1,
Default Unpackspec fieldsR fieldsR,
Default NullMaker fieldsR nullableFieldsR1,
Default NullMaker (fieldsL2, nullableFieldsR1) nullableFieldsR2) =>
Opaleye.Select fieldsR
-> Opaleye.Select fieldsL2
-> Opaleye.Select fieldsL1
-> ((fieldsL2, fieldsR) -> Column PGBool)
-> ((fieldsL1, (fieldsL2, nullableFieldsR1)) -> Column PGBool)
-> Opaleye.Select (fieldsL1, nullableFieldsR2)
leftJoin3 :: ( Default Unpackspec b2 b2
, Default Unpackspec b3 b3
, Default Unpackspec fieldsL fieldsL
, Default Unpackspec fieldsR fieldsR
, Default NullMaker b3 b4
, Default NullMaker b2 b5
, Default NullMaker fieldsR b2) =>
Select fieldsR
-> Select b3
-> Select fieldsL
-> ((b3, fieldsR) -> Column PGBool)
-> ((fieldsL, (b3, b2)) -> Column PGBool)
-> Select (fieldsL, (b4, b5))
leftJoin3 q1 q2 q3
cond12 cond23 =
leftJoin q3 ( leftJoin q2 q1 cond12) cond23
leftJoin4
:: (Default Unpackspec fieldsL1 fieldsL1,
Default Unpackspec fieldsL2 fieldsL2,
Default Unpackspec nullableFieldsR1 nullableFieldsR1,
Default Unpackspec fieldsL3 fieldsL3,
Default Unpackspec nullableFieldsR2 nullableFieldsR2,
Default Unpackspec fieldsR fieldsR,
Default NullMaker fieldsR nullableFieldsR2,
Default NullMaker (fieldsL2, nullableFieldsR1) nullableFieldsR3,
Default NullMaker (fieldsL3, nullableFieldsR2) nullableFieldsR1) =>
Opaleye.Select fieldsR
-> Opaleye.Select fieldsL3
-> Opaleye.Select fieldsL2
-> Opaleye.Select fieldsL1
-> ((fieldsL3, fieldsR) -> Column PGBool)
-> ((fieldsL2, (fieldsL3, nullableFieldsR2)) -> Column PGBool)
-> ((fieldsL1, (fieldsL2, nullableFieldsR1)) -> Column PGBool)
-> Opaleye.Select (fieldsL1, nullableFieldsR3)
leftJoin4 :: (Default Unpackspec b2 b2,
Default Unpackspec fieldsL fieldsL, Default Unpackspec b3 b3,
Default Unpackspec b4 b4, Default Unpackspec b5 b5,
Default Unpackspec b6 b6, Default Unpackspec fieldsR fieldsR,
Default NullMaker b2 b7, Default NullMaker b5 b8,
Default NullMaker b6 b9, Default NullMaker b3 b5,
Default NullMaker b4 b6, Default NullMaker fieldsR b4) =>
Select fieldsR
-> Select b3
-> Select b2
-> Select fieldsL
-> ((b3, fieldsR) -> Column PGBool)
-> ((b2, (b3, b4)) -> Column PGBool)
-> ((fieldsL, (b2, (b5, b6))) -> Column PGBool)
-> Select (fieldsL, (b7, (b8, b9)))
leftJoin4 q1 q2 q3 q4
cond12 cond23 cond34 =
leftJoin q4 ( leftJoin q3
......@@ -103,28 +101,27 @@ leftJoin4 q1 q2 q3 q4
) cond34
leftJoin5 :: ( Default Unpackspec fieldsL1 fieldsL1,
Default Unpackspec fieldsL2 fieldsL2,
Default Unpackspec nullableFieldsR1 nullableFieldsR1,
Default Unpackspec fieldsL3 fieldsL3,
Default Unpackspec nullableFieldsR2 nullableFieldsR2,
Default Unpackspec fieldsL4 fieldsL4,
Default Unpackspec nullableFieldsR3 nullableFieldsR3,
Default Unpackspec fieldsR fieldsR,
Default NullMaker fieldsR nullableFieldsR3,
Default NullMaker (fieldsL2, nullableFieldsR1) nullableFieldsR4,
Default NullMaker (fieldsL3, nullableFieldsR2) nullableFieldsR1,
Default NullMaker (fieldsL4, nullableFieldsR3) nullableFieldsR2) =>
Query fieldsR
-> Query fieldsL4
-> Query fieldsL3
-> Query fieldsL2
-> Query fieldsL1
-> ((fieldsL4, fieldsR) -> Column PGBool)
-> ((fieldsL3, (fieldsL4, nullableFieldsR3)) -> Column PGBool)
-> ((fieldsL2, (fieldsL3, nullableFieldsR2)) -> Column PGBool)
-> ((fieldsL1, (fieldsL2, nullableFieldsR1)) -> Column PGBool)
-> Query (fieldsL1, nullableFieldsR4)
leftJoin5 :: (Default Unpackspec b2 b2, Default Unpackspec b3 b3,
Default Unpackspec b4 b4, Default Unpackspec b5 b5,
Default Unpackspec b6 b6, Default Unpackspec b7 b7,
Default Unpackspec fieldsL fieldsL, Default Unpackspec b8 b8,
Default Unpackspec b9 b9, Default Unpackspec b10 b10,
Default Unpackspec fieldsR fieldsR, Default NullMaker b7 b6,
Default NullMaker b6 b11, Default NullMaker b8 b12,
Default NullMaker b3 b13, Default NullMaker b2 b14,
Default NullMaker b9 b3, Default NullMaker b10 b2,
Default NullMaker b5 b9, Default NullMaker b4 b10,
Default NullMaker fieldsR b4) =>
Select fieldsR
-> Select b5
-> Select b7
-> Select b8
-> Select fieldsL
-> ((b5, fieldsR) -> Column PGBool)
-> ((b7, (b5, b4)) -> Column PGBool)
-> ((b8, (b7, (b9, b10))) -> Column PGBool)
-> ((fieldsL, (b8, (b6, (b3, b2)))) -> Column PGBool)
-> Select (fieldsL, (b12, (b11, (b13, b14))))
leftJoin5 q1 q2 q3 q4 q5
cond12 cond23 cond34 cond45 =
leftJoin q5 ( leftJoin q4
......@@ -136,32 +133,34 @@ leftJoin5 q1 q2 q3 q4 q5
) cond45
leftJoin6 :: ( Default Unpackspec fieldsL1 fieldsL1,
Default Unpackspec fieldsL2 fieldsL2,
Default Unpackspec nullableFieldsR1 nullableFieldsR1,
Default Unpackspec fieldsL3 fieldsL3,
Default Unpackspec nullableFieldsR2 nullableFieldsR2,
Default Unpackspec fieldsL4 fieldsL4,
Default Unpackspec nullableFieldsR3 nullableFieldsR3,
Default Unpackspec fieldsL5 fieldsL5,
Default Unpackspec nullableFieldsR4 nullableFieldsR4,
Default Unpackspec fieldsR fieldsR,
Default NullMaker fieldsR nullableFieldsR4,
Default NullMaker (fieldsL2, nullableFieldsR1) nullableFieldsR5,
Default NullMaker (fieldsL3, nullableFieldsR2) nullableFieldsR1,
Default NullMaker (fieldsL4, nullableFieldsR3) nullableFieldsR2,
Default NullMaker (fieldsL5, nullableFieldsR4) nullableFieldsR3) =>
Query fieldsR
-> Query fieldsL5
-> Query fieldsL4
-> Query fieldsL3
-> Query fieldsL2
-> Query fieldsL1 -> ((fieldsL5, fieldsR) -> Column PGBool)
-> ((fieldsL4, (fieldsL5, nullableFieldsR4)) -> Column PGBool)
-> ((fieldsL3, (fieldsL4, nullableFieldsR3)) -> Column PGBool)
-> ((fieldsL2, (fieldsL3, nullableFieldsR2)) -> Column PGBool)
-> ((fieldsL1, (fieldsL2, nullableFieldsR1)) -> Column PGBool)
-> Query (fieldsL1, nullableFieldsR5)
leftJoin6 :: (Default Unpackspec b2 b2, Default Unpackspec b3 b3,
Default Unpackspec b4 b4, Default Unpackspec b5 b5,
Default Unpackspec fieldsL fieldsL, Default Unpackspec b6 b6,
Default Unpackspec b7 b7, Default Unpackspec b8 b8,
Default Unpackspec b9 b9, Default Unpackspec b10 b10,
Default Unpackspec b11 b11, Default Unpackspec b12 b12,
Default Unpackspec b13 b13, Default Unpackspec b14 b14,
Default Unpackspec b15 b15, Default Unpackspec fieldsR fieldsR,
Default NullMaker b5 b4, Default NullMaker b4 b16,
Default NullMaker b6 b17, Default NullMaker b2 b18,
Default NullMaker b7 b2, Default NullMaker b3 b7,
Default NullMaker b12 b19, Default NullMaker b13 b20,
Default NullMaker b10 b12, Default NullMaker b11 b13,
Default NullMaker b14 b10, Default NullMaker b15 b11,
Default NullMaker b8 b14, Default NullMaker b9 b15,
Default NullMaker fieldsR b9) =>
Select fieldsR
-> Select b8
-> Select b3
-> Select b5
-> Select b6
-> Select fieldsL
-> ((b8, fieldsR) -> Column PGBool)
-> ((b3, (b8, b9)) -> Column PGBool)
-> ((b5, (b3, (b14, b15))) -> Column PGBool)
-> ((b6, (b5, (b7, (b10, b11)))) -> Column PGBool)
-> ((fieldsL, (b6, (b4, (b2, (b12, b13))))) -> Column PGBool)
-> Select (fieldsL, (b17, (b16, (b18, (b19, b20)))))
leftJoin6 q1 q2 q3 q4 q5 q6
cond12 cond23 cond34 cond45 cond56 =
leftJoin q6 ( leftJoin q5
......@@ -175,39 +174,43 @@ leftJoin6 q1 q2 q3 q4 q5 q6
) cond56
leftJoin7
:: (Default Unpackspec fieldsL1 fieldsL1,
Default Unpackspec fieldsL2 fieldsL2,
Default Unpackspec nullableFieldsR1 nullableFieldsR1,
Default Unpackspec fieldsL3 fieldsL3,
Default Unpackspec nullableFieldsR2 nullableFieldsR2,
Default Unpackspec fieldsL4 fieldsL4,
Default Unpackspec nullableFieldsR3 nullableFieldsR3,
Default Unpackspec fieldsL5 fieldsL5,
Default Unpackspec nullableFieldsR4 nullableFieldsR4,
Default Unpackspec fieldsL6 fieldsL6,
Default Unpackspec nullableFieldsR5 nullableFieldsR5,
Default Unpackspec fieldsR fieldsR,
Default NullMaker fieldsR nullableFieldsR5,
Default NullMaker (fieldsL2, nullableFieldsR1) nullableFieldsR6,
Default NullMaker (fieldsL3, nullableFieldsR2) nullableFieldsR1,
Default NullMaker (fieldsL4, nullableFieldsR3) nullableFieldsR2,
Default NullMaker (fieldsL5, nullableFieldsR4) nullableFieldsR3,
Default NullMaker (fieldsL6, nullableFieldsR5) nullableFieldsR4) =>
Opaleye.Select fieldsR
-> Opaleye.Select fieldsL6
-> Opaleye.Select fieldsL5
-> Opaleye.Select fieldsL4
-> Opaleye.Select fieldsL3
-> Opaleye.Select fieldsL2
-> Opaleye.Select fieldsL1
-> ((fieldsL6, fieldsR) -> Column PGBool)
-> ((fieldsL5, (fieldsL6, nullableFieldsR5)) -> Column PGBool)
-> ((fieldsL4, (fieldsL5, nullableFieldsR4)) -> Column PGBool)
-> ((fieldsL3, (fieldsL4, nullableFieldsR3)) -> Column PGBool)
-> ((fieldsL2, (fieldsL3, nullableFieldsR2)) -> Column PGBool)
-> ((fieldsL1, (fieldsL2, nullableFieldsR1)) -> Column PGBool)
-> Opaleye.Select (fieldsL1, nullableFieldsR6)
leftJoin7 :: (Default Unpackspec b2 b2, Default Unpackspec b3 b3,
Default Unpackspec b4 b4, Default Unpackspec b5 b5,
Default Unpackspec b6 b6, Default Unpackspec b7 b7,
Default Unpackspec b8 b8, Default Unpackspec b9 b9,
Default Unpackspec b10 b10, Default Unpackspec b11 b11,
Default Unpackspec b12 b12, Default Unpackspec b13 b13,
Default Unpackspec fieldsL fieldsL, Default Unpackspec b14 b14,
Default Unpackspec b15 b15, Default Unpackspec b16 b16,
Default Unpackspec b17 b17, Default Unpackspec b18 b18,
Default Unpackspec b19 b19, Default Unpackspec b20 b20,
Default Unpackspec b21 b21, Default Unpackspec fieldsR fieldsR,
Default NullMaker b11 b8, Default NullMaker b8 b10,
Default NullMaker b10 b9, Default NullMaker b9 b22,
Default NullMaker b16 b12, Default NullMaker b12 b17,
Default NullMaker b17 b23, Default NullMaker b13 b24,
Default NullMaker b15 b25, Default NullMaker b14 b15,
Default NullMaker b3 b26, Default NullMaker b2 b27,
Default NullMaker b18 b3, Default NullMaker b19 b2,
Default NullMaker b5 b18, Default NullMaker b4 b19,
Default NullMaker b20 b5, Default NullMaker b21 b4,
Default NullMaker b7 b20, Default NullMaker b6 b21,
Default NullMaker fieldsR b6) =>
Select fieldsR
-> Select b7
-> Select b11
-> Select b16
-> Select b14
-> Select b13
-> Select fieldsL
-> ((b7, fieldsR) -> Column PGBool)
-> ((b11, (b7, b6)) -> Column PGBool)
-> ((b16, (b11, (b20, b21))) -> Column PGBool)
-> ((b14, (b16, (b8, (b5, b4)))) -> Column PGBool)
-> ((b13, (b14, (b12, (b10, (b18, b19))))) -> Column PGBool)
-> ((fieldsL, (b13, (b15, (b17, (b9, (b3, b2))))))
-> Column PGBool)
-> Select (fieldsL, (b24, (b25, (b23, (b22, (b26, b27))))))
leftJoin7 q1 q2 q3 q4 q5 q6 q7
cond12 cond23 cond34 cond45 cond56 cond67 =
leftJoin q7 ( leftJoin q6
......@@ -223,44 +226,52 @@ leftJoin7 q1 q2 q3 q4 q5 q6 q7
) cond67
leftJoin8
:: (Default Unpackspec fieldsL1 fieldsL1,
Default Unpackspec fieldsL2 fieldsL2,
Default Unpackspec nullableFieldsR1 nullableFieldsR1,
Default Unpackspec fieldsL3 fieldsL3,
Default Unpackspec nullableFieldsR2 nullableFieldsR2,
Default Unpackspec fieldsL4 fieldsL4,
Default Unpackspec nullableFieldsR3 nullableFieldsR3,
Default Unpackspec fieldsL5 fieldsL5,
Default Unpackspec nullableFieldsR4 nullableFieldsR4,
Default Unpackspec fieldsL6 fieldsL6,
Default Unpackspec nullableFieldsR5 nullableFieldsR5,
Default Unpackspec fieldsL7 fieldsL7,
Default Unpackspec nullableFieldsR6 nullableFieldsR6,
Default Unpackspec fieldsR fieldsR,
Default NullMaker fieldsR nullableFieldsR6,
Default NullMaker (fieldsL2, nullableFieldsR1) nullableFieldsR7,
Default NullMaker (fieldsL3, nullableFieldsR2) nullableFieldsR1,
Default NullMaker (fieldsL4, nullableFieldsR3) nullableFieldsR2,
Default NullMaker (fieldsL5, nullableFieldsR4) nullableFieldsR3,
Default NullMaker (fieldsL6, nullableFieldsR5) nullableFieldsR4,
Default NullMaker (fieldsL7, nullableFieldsR6) nullableFieldsR5) =>
Opaleye.Select fieldsR
-> Opaleye.Select fieldsL7
-> Opaleye.Select fieldsL6
-> Opaleye.Select fieldsL5
-> Opaleye.Select fieldsL4
-> Opaleye.Select fieldsL3
-> Opaleye.Select fieldsL2
-> Opaleye.Select fieldsL1
-> ((fieldsL7, fieldsR) -> Column PGBool)
-> ((fieldsL6, (fieldsL7, nullableFieldsR6)) -> Column PGBool)
-> ((fieldsL5, (fieldsL6, nullableFieldsR5)) -> Column PGBool)
-> ((fieldsL4, (fieldsL5, nullableFieldsR4)) -> Column PGBool)
-> ((fieldsL3, (fieldsL4, nullableFieldsR3)) -> Column PGBool)
-> ((fieldsL2, (fieldsL3, nullableFieldsR2)) -> Column PGBool)
-> ((fieldsL1, (fieldsL2, nullableFieldsR1)) -> Column PGBool)
-> Opaleye.Select (fieldsL1, nullableFieldsR7)
leftJoin8 :: (Default Unpackspec b2 b2, Default Unpackspec b3 b3,
Default Unpackspec b4 b4, Default Unpackspec b5 b5,
Default Unpackspec b6 b6, Default Unpackspec b7 b7,
Default Unpackspec b8 b8, Default Unpackspec b9 b9,
Default Unpackspec b10 b10, Default Unpackspec fieldsL fieldsL,
Default Unpackspec b11 b11, Default Unpackspec b12 b12,
Default Unpackspec b13 b13, Default Unpackspec b14 b14,
Default Unpackspec b15 b15, Default Unpackspec b16 b16,
Default Unpackspec b17 b17, Default Unpackspec b18 b18,
Default Unpackspec b19 b19, Default Unpackspec b20 b20,
Default Unpackspec b21 b21, Default Unpackspec b22 b22,
Default Unpackspec b23 b23, Default Unpackspec b24 b24,
Default Unpackspec b25 b25, Default Unpackspec b26 b26,
Default Unpackspec b27 b27, Default Unpackspec b28 b28,
Default Unpackspec fieldsR fieldsR, Default NullMaker b8 b5,
Default NullMaker b5 b7, Default NullMaker b7 b6,
Default NullMaker b6 b29, Default NullMaker b13 b9,
Default NullMaker b9 b14, Default NullMaker b14 b30,
Default NullMaker b10 b31, Default NullMaker b12 b32,
Default NullMaker b11 b12, Default NullMaker b2 b33,
Default NullMaker b15 b2, Default NullMaker b3 b15,
Default NullMaker b16 b3, Default NullMaker b4 b16,
Default NullMaker b23 b34, Default NullMaker b24 b35,
Default NullMaker b21 b23, Default NullMaker b22 b24,
Default NullMaker b25 b21, Default NullMaker b26 b22,
Default NullMaker b19 b25, Default NullMaker b20 b26,
Default NullMaker b27 b19, Default NullMaker b28 b20,
Default NullMaker b17 b27, Default NullMaker b18 b28,
Default NullMaker fieldsR b18) =>
Select fieldsR
-> Select b17
-> Select b4
-> Select b8
-> Select b13
-> Select b11
-> Select b10
-> Select fieldsL
-> ((b17, fieldsR) -> Column PGBool)
-> ((b4, (b17, b18)) -> Column PGBool)
-> ((b8, (b4, (b27, b28))) -> Column PGBool)
-> ((b13, (b8, (b16, (b19, b20)))) -> Column PGBool)
-> ((b11, (b13, (b5, (b3, (b25, b26))))) -> Column PGBool)
-> ((b10, (b11, (b9, (b7, (b15, (b21, b22)))))) -> Column PGBool)
-> ((fieldsL, (b10, (b12, (b14, (b6, (b2, (b23, b24)))))))
-> Column PGBool)
-> Select (fieldsL, (b31, (b32, (b30, (b29, (b33, (b34, b35)))))))
leftJoin8 q1 q2 q3 q4 q5 q6 q7 q8
cond12 cond23 cond34 cond45 cond56 cond67 cond78 =
leftJoin q8 ( leftJoin q7
......@@ -278,49 +289,65 @@ leftJoin8 q1 q2 q3 q4 q5 q6 q7 q8
) cond78
leftJoin9
:: (Default Unpackspec fieldsL1 fieldsL1,
Default Unpackspec fieldsL2 fieldsL2,
Default Unpackspec nullableFieldsR1 nullableFieldsR1,
Default Unpackspec fieldsL3 fieldsL3,
Default Unpackspec nullableFieldsR2 nullableFieldsR2,
Default Unpackspec fieldsL4 fieldsL4,
Default Unpackspec nullableFieldsR3 nullableFieldsR3,
Default Unpackspec fieldsL5 fieldsL5,
Default Unpackspec nullableFieldsR4 nullableFieldsR4,
Default Unpackspec fieldsL6 fieldsL6,
Default Unpackspec nullableFieldsR5 nullableFieldsR5,
Default Unpackspec fieldsL7 fieldsL7,
Default Unpackspec nullableFieldsR6 nullableFieldsR6,
Default Unpackspec fieldsL8 fieldsL8,
Default Unpackspec nullableFieldsR7 nullableFieldsR7,
Default Unpackspec fieldsR fieldsR,
Default NullMaker fieldsR nullableFieldsR7,
Default NullMaker (fieldsL2, nullableFieldsR1) nullableFieldsR8,
Default NullMaker (fieldsL3, nullableFieldsR2) nullableFieldsR1,
Default NullMaker (fieldsL4, nullableFieldsR3) nullableFieldsR2,
Default NullMaker (fieldsL5, nullableFieldsR4) nullableFieldsR3,
Default NullMaker (fieldsL6, nullableFieldsR5) nullableFieldsR4,
Default NullMaker (fieldsL7, nullableFieldsR6) nullableFieldsR5,
Default NullMaker (fieldsL8, nullableFieldsR7) nullableFieldsR6) =>
Opaleye.Select fieldsR
-> Opaleye.Select fieldsL8
-> Opaleye.Select fieldsL7
-> Opaleye.Select fieldsL6
-> Opaleye.Select fieldsL5
-> Opaleye.Select fieldsL4
-> Opaleye.Select fieldsL3
-> Opaleye.Select fieldsL2
-> Opaleye.Select fieldsL1
-> ((fieldsL8, fieldsR) -> Column PGBool)
-> ((fieldsL7, (fieldsL8, nullableFieldsR7)) -> Column PGBool)
-> ((fieldsL6, (fieldsL7, nullableFieldsR6)) -> Column PGBool)
-> ((fieldsL5, (fieldsL6, nullableFieldsR5)) -> Column PGBool)
-> ((fieldsL4, (fieldsL5, nullableFieldsR4)) -> Column PGBool)
-> ((fieldsL3, (fieldsL4, nullableFieldsR3)) -> Column PGBool)
-> ((fieldsL2, (fieldsL3, nullableFieldsR2)) -> Column PGBool)
-> ((fieldsL1, (fieldsL2, nullableFieldsR1)) -> Column PGBool)
-> Opaleye.Select (fieldsL1, nullableFieldsR8)
leftJoin9 :: (Default Unpackspec b2 b2, Default Unpackspec b3 b3,
Default Unpackspec b4 b4, Default Unpackspec b5 b5,
Default Unpackspec b6 b6, Default Unpackspec b7 b7,
Default Unpackspec b8 b8, Default Unpackspec b9 b9,
Default Unpackspec b10 b10, Default Unpackspec b11 b11,
Default Unpackspec b12 b12, Default Unpackspec b13 b13,
Default Unpackspec b14 b14, Default Unpackspec b15 b15,
Default Unpackspec b16 b16, Default Unpackspec b17 b17,
Default Unpackspec b18 b18, Default Unpackspec b19 b19,
Default Unpackspec b20 b20, Default Unpackspec b21 b21,
Default Unpackspec fieldsL fieldsL, Default Unpackspec b22 b22,
Default Unpackspec b23 b23, Default Unpackspec b24 b24,
Default Unpackspec b25 b25, Default Unpackspec b26 b26,
Default Unpackspec b27 b27, Default Unpackspec b28 b28,
Default Unpackspec b29 b29, Default Unpackspec b30 b30,
Default Unpackspec b31 b31, Default Unpackspec b32 b32,
Default Unpackspec b33 b33, Default Unpackspec b34 b34,
Default Unpackspec b35 b35, Default Unpackspec b36 b36,
Default Unpackspec fieldsR fieldsR, Default NullMaker b15 b10,
Default NullMaker b10 b14, Default NullMaker b14 b11,
Default NullMaker b11 b13, Default NullMaker b13 b12,
Default NullMaker b12 b37, Default NullMaker b28 b16,
Default NullMaker b16 b29, Default NullMaker b29 b17,
Default NullMaker b17 b30, Default NullMaker b30 b38,
Default NullMaker b21 b20, Default NullMaker b20 b39,
Default NullMaker b22 b40, Default NullMaker b18 b41,
Default NullMaker b23 b18, Default NullMaker b19 b23,
Default NullMaker b26 b42, Default NullMaker b25 b26,
Default NullMaker b27 b25, Default NullMaker b24 b27,
Default NullMaker b3 b43, Default NullMaker b2 b44,
Default NullMaker b31 b3, Default NullMaker b32 b2,
Default NullMaker b5 b31, Default NullMaker b4 b32,
Default NullMaker b33 b5, Default NullMaker b34 b4,
Default NullMaker b7 b33, Default NullMaker b6 b34,
Default NullMaker b35 b7, Default NullMaker b36 b6,
Default NullMaker b9 b35, Default NullMaker b8 b36,
Default NullMaker fieldsR b8) =>
Select fieldsR
-> Select b9
-> Select b15
-> Select b28
-> Select b24
-> Select b19
-> Select b21
-> Select b22
-> Select fieldsL
-> ((b9, fieldsR) -> Column PGBool)
-> ((b15, (b9, b8)) -> Column PGBool)
-> ((b28, (b15, (b35, b36))) -> Column PGBool)
-> ((b24, (b28, (b10, (b7, b6)))) -> Column PGBool)
-> ((b19, (b24, (b16, (b14, (b33, b34))))) -> Column PGBool)
-> ((b21, (b19, (b27, (b29, (b11, (b5, b4)))))) -> Column PGBool)
-> ((b22, (b21, (b23, (b25, (b17, (b13, (b31, b32)))))))
-> Column PGBool)
-> ((fieldsL, (b22, (b20, (b18, (b26, (b30, (b12, (b3, b2))))))))
-> Column PGBool)
-> Select
(fieldsL, (b40, (b39, (b41, (b42, (b38, (b37, (b43, b44))))))))
leftJoin9 q1 q2 q3 q4 q5 q6 q7 q8 q9
cond12 cond23 cond34 cond45 cond56 cond67 cond78 cond89 =
leftJoin q9 ( leftJoin q8
......
stack.yaml
View file @ adabce2d
resolver: lts-16.26
resolver:
url: https://raw.githubusercontent.com/commercialhaskell/stackage-snapshots/master/lts/17/10.yaml
flags: {}
extra-package-dbs: []
packages:
- .
#- 'deps/patches-class'
#- 'deps/patches-map'
#- 'deps/servant-job'
#- 'deps/accelerate'
#- 'deps/accelerate-utility'
......@@ -59,7 +59,7 @@ extra-deps:
# NP libs
#- git: https://github.com/np/servant-job.git # waiting for PR
- git: https://github.com/delanoe/servant-job.git
commit: a9d8ec247b60906ae0ad76ea017cacd6ff36a7a1
commit: 5b15f6ffbff6bc8e26c46206d6d227213fc1821f
#- git: https://github.com/np/patches-map
- git: https://github.com/delanoe/patches-map
commit: 76cae88f367976ff091e661ee69a5c3126b94694
......@@ -68,8 +68,9 @@ extra-deps:
commit: d3e971d4e78d1dfcc853f2fb86bde1995faf22ae
# Graph libs
- git: https://github.com/kaizhang/haskell-igraph.git
commit: 34553acc4ebdcae7065311dcefb426e0fd58c5a0
#- git: https://github.com/kaizhang/haskell-igraph.git
- git: https://github.com/delanoe/haskell-igraph.git
commit: 3c9dc79ff4de2ad7060ff3a527a774dff3aa6f4a
# Accelerate Linear Algebra and specific instances
# (UndecidableInstances for newer GHC version)
......@@ -79,24 +80,25 @@ extra-deps:
commit: 83ada76e78ac10d9559af8ed6bd4064ec81308e4
- accelerate-arithmetic-1.0.0.1@sha256:555639232aa5cad411e89247b27871d09352b987a754230a288c690b6de6d888,2096
# Others dependencies (with stack resolver)
# Others dependencies (using stack resolver)
- constraints-extras-0.3.1.0@sha256:12016ebb91ad5ed2c82bf7e48c6bd6947d164d33c9dca5ac3965de1bb6c780c0,1777
- KMP-0.2.0.0@sha256:6dfbac03ef00ebd9347234732cb86a40f62ab5a80c0cc6bedb8eb51766f7df28,2562
- Unique-0.4.7.7@sha256:2269d3528271e25d34542e7c24a4e541e27ec33460e1ea00845da95b82eec6fa,2777
- dependent-sum-0.4@sha256:40c705604f52374fb72616e10234635104a626ede737ddde899777b719df120b,1907
- duckling-0.1.6.1@sha256:dab60953f405b45fe93e1e745f8cc83e5166e1788b1f4999cc06382e131153d8,47147
- fclabels-2.0.4@sha256:efcc20c6c903d0a59e36eb1cb547a7bbbbba93b6e20b84b06e919c350891beb2,4492
- Unique-0.4.7.8@sha256:9661f45aa31dde119a2114566166ea38b011a45653337045ee4ced75636533c0,2067
- dependent-sum-0.7.1.0@sha256:0e419237f5b86da3659772afff9cab355c0f8d5b3fdb15a5b30e673d8dc83941,2147
- duckling-0.2.0.0@sha256:84becd4e48ee3676cdd6fe5745a77ee60e365ea730cd759610c8a7738f3eb4a6,60543
- fclabels-2.0.5@sha256:817006077632bd29e637956154aa33d3c10a59be0791c308cef955eb951b2675,4473
- full-text-search-0.2.1.4@sha256:81f6df3327e5b604f99b15e78635e5d6ca996e504c21d268a6d751d7d131aa36,6032
- fullstop-0.1.4@sha256:80a3e382ef53551bb936e7da8b2825621df0ea169af1212debcb0a90010b30c8,2044
- hgal-2.0.0.2@sha256:13d58afd0668b9cb881c612eff8488a0e289edd4bbffa893df4beee60cfeb73b,653
- json-stream-0.4.2.4@sha256:8b7f17d54a6e1e6311756270f8bcf51e91bab4300945400de66118470dcf51b9,4716
- located-base-0.1.1.1@sha256:7c6395f2b6fbf2d5f76c3514f774423838c0ea94e1c6a5530dd3c94b30c9d1c8,1904
- logging-effect-1.3.9@sha256:4fd36d7c19f22569d510907c55d6d49cb5d80fb30767c6b3f85736b98f57d7c0,1678
- probability-0.2.6@sha256:6d85d961d85fd5d1a35b90fe77510f6fcc6a8f20e8ed503219c38378de9cb3cd,2857
- logging-effect-1.3.12@sha256:72d168dd09887649ba9501627219b6027cbec2d5541931555b7885b133785ce3,1679
- monoid-extras-0.5.1@sha256:438dbfd7b4dce47d8f0ca577f56caf94bd1e21391afa545cad09fe7cf2e5793d,2333
- rake-0.0.1@sha256:3380f6567fb17505d1095b7f32222c0b631fa04126ad39726c84262da99c08b3,2025
- servant-cassava-0.10.1@sha256:07e7b6ca67cf57dcb4a0041a399a25d058844505837c6479e01d62be59d01fdf,1665
- servant-flatten-0.2@sha256:276896f7c5cdec5b8f8493f6205fded0cc602d050b58fdb09a6d7c85c3bb0837,1234
- servant-multipart-0.11.5@sha256:1633f715b5b53d648a1da69839bdc5046599f4f7244944d4bbf852dba38d8f4b,2319
- servant-mock-0.8.7@sha256:64cb3e52bbd51ab6cb25e3f412a99ea712c6c26f1efd117f01a8d1664df49c67,2306
- servant-xml-1.0.1.4@sha256:6c9f2986ac42e72fe24b794c660763a1966a18d696b34cd4f4ed15165edd4aa0,851
- smtp-mail-0.2.0.0@sha256:b91c81f6dbb41a9ceee8c443385118684ecec55006b77f7d3c0e49cffd2468cf,1211
- stemmer-0.5.2@sha256:823aec56249ec2619f60a2c0d1384b732894dbbbe642856d337ebfe9629a0efd,4082
- xmlbf-0.6.1@sha256:57867fcb39e0514d17b3328ff5de8d241a18482fc89bb742d9ed820a6a2a5187,1540
- xmlbf-xeno-0.2@sha256:39f70fced6052524c290cf595f114661c721452e65fc3e0953a44e7682a6a6b0,950
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment