]> Git — Sourcephile - gargantext.git/blob - src/Gargantext/Database/Flow/Annuaire.hs
issues with hidden module when trying to make a bin file
[gargantext.git] / src / Gargantext / Database / Flow / Annuaire.hs
1 {-|
2 Module : Gargantext.Database.Flow.Annuaire
3 Description : Database Flow Annuaire
4 Copyright : (c) CNRS, 2017-Present
5 License : AGPL + CECILL v3
6 Maintainer : team@gargantext.org
7 Stability : experimental
8 Portability : POSIX
9
10 -}
11
12 {-# LANGUAGE ConstraintKinds #-}
13 {-# LANGUAGE DeriveGeneric #-}
14 {-# LANGUAGE NoImplicitPrelude #-}
15 {-# LANGUAGE OverloadedStrings #-}
16 {-# LANGUAGE RankNTypes #-}
17 {-# LANGUAGE FlexibleContexts #-}
18
19 module Gargantext.Database.Flow.Annuaire
20 where
21
22
23
24 {-
25 import Gargantext.Prelude
26 import Gargantext.Database.Flow
27
28 -- | Annuaire
29
30 flowAnnuaire :: FlowCmdM env ServantErr m => FilePath -> m ()
31 flowAnnuaire filePath = do
32 contacts <- liftIO $ deserialiseImtUsersFromFile filePath
33 ps <- flowInsertAnnuaire "Annuaire"
34 $ map (\h-> ToDbContact h)
35 $ map addUniqIdsContact contacts
36 printDebug "length annuaire" ps
37 -}
38