[CORS] Firewall fix negation.

src/Gargantext/API.hs

@@ -101,7 +101,7 @@ fireWall req fw = do
     let hostOk   = Just (encodeUtf8 "localhost:3000")
     let originOk = Just (encodeUtf8 "http://localhost:8008")
 
-    if origin == originOk && host == hostOk || unFireWall fw
+    if origin == originOk && host == hostOk || (not $ unFireWall fw)
        then pure True
        else pure False
 
@@ -270,7 +270,3 @@ startGargantextMock port = do
   run port application
 
 
-
-
-
-

src/Gargantext/Prelude.hs

@@ -25,7 +25,7 @@ import Protolude ( Bool(True, False), Int, Double, Integer
                  , takeWhile, sqrt, undefined, identity
                  , abs, maximum, minimum, return, snd, truncate
                  , (+), (*), (/), (-), (.), (>=), ($), (**), (^), (<), (>), (==), (<>)
-                 , (&&), (||)
+                 , (&&), (||), not
                  , toS
                  )