Remove superfluous gfortran extra-libraries stanza
[gargantext.git] / src / Gargantext / Database / Action / Node.hs
index d75cec6646aadaa33786e7cd4b3e6ef8c975a1bd..8748e1bd5b04d9ecdcca77dd86aadc1de6b3ec56 100644 (file)
@@ -57,6 +57,9 @@ mkNodeWithParent NodeFrameWrite i u n =
 mkNodeWithParent NodeFrameCalc i u n =
   mkNodeWithParent_ConfigureHyperdata NodeFrameCalc i u n
 
+mkNodeWithParent NodeFrameVisio i u n =
+  mkNodeWithParent_ConfigureHyperdata NodeFrameVisio i u n
+
 mkNodeWithParent NodeFrameNotebook i u n =
   mkNodeWithParent_ConfigureHyperdata NodeFrameNotebook i u n
 
@@ -79,6 +82,9 @@ mkNodeWithParent_ConfigureHyperdata NodeFrameWrite (Just i) uId name =
 mkNodeWithParent_ConfigureHyperdata NodeFrameCalc (Just i) uId name =
   mkNodeWithParent_ConfigureHyperdata' NodeFrameCalc (Just i) uId name
 
+mkNodeWithParent_ConfigureHyperdata NodeFrameVisio (Just i) uId name =
+  mkNodeWithParent_ConfigureHyperdata' NodeFrameVisio (Just i) uId name
+
 mkNodeWithParent_ConfigureHyperdata NodeFrameNotebook (Just i) uId name =
   insertNode NodeFrameNotebook  (Just "Notebook") (Just $ DefaultFrameCode $ HyperdataFrame "Notebook" name) i uId
 
@@ -96,6 +102,7 @@ mkNodeWithParent_ConfigureHyperdata' nt (Just i) uId name = do
   maybeNodeId <- case nt of
      NodeFrameWrite -> insertNode NodeFrameWrite (Just name)   Nothing i uId
      NodeFrameCalc  -> insertNode NodeFrameCalc  (Just name)   Nothing i uId
+     NodeFrameVisio -> insertNode NodeFrameVisio (Just name)   Nothing i uId
      _              -> nodeError NeedsConfiguration
 
   case maybeNodeId of
@@ -105,6 +112,7 @@ mkNodeWithParent_ConfigureHyperdata' nt (Just i) uId name = do
       u <- case nt of
             NodeFrameWrite -> pure $ _gc_frame_write_url cfg
             NodeFrameCalc  -> pure $ _gc_frame_calc_url  cfg
+            NodeFrameVisio -> pure $ _gc_frame_visio_url  cfg
             _              -> nodeError NeedsConfiguration
       let
         s = _gc_secretkey cfg