diff --git a/nri-redis/src/Redis.hs b/nri-redis/src/Redis.hs index 44db8d14..dd263bcb 100644 --- a/nri-redis/src/Redis.hs +++ b/nri-redis/src/Redis.hs @@ -53,16 +53,16 @@ module Redis where import qualified Data.Aeson as Aeson -import qualified Redis.Script as Script -import qualified Database.Redis import qualified Data.ByteString as ByteString import Data.List.NonEmpty (NonEmpty) import qualified Data.List.NonEmpty as NonEmpty +import qualified Database.Redis import qualified Dict import qualified NonEmptyDict import qualified Redis.Codec as Codec import qualified Redis.Handler as Handler import qualified Redis.Internal as Internal +import qualified Redis.Script as Script import qualified Redis.Settings as Settings import qualified Prelude diff --git a/nri-redis/src/Redis/Handler.hs b/nri-redis/src/Redis/Handler.hs index a92ff539..339989b0 100644 --- a/nri-redis/src/Redis/Handler.hs +++ b/nri-redis/src/Redis/Handler.hs @@ -12,13 +12,13 @@ import Control.Monad.IO.Class (liftIO) import qualified Data.Acquire import qualified Data.ByteString import qualified Data.List.NonEmpty as NonEmpty -import qualified Redis.Script as Script import qualified Data.Text.Encoding import qualified Database.Redis import qualified Dict import qualified GHC.Stack as Stack import qualified Platform import qualified Redis.Internal as Internal +import qualified Redis.Script as Script import qualified Redis.Settings as Settings import qualified Set import qualified Text @@ -167,7 +167,7 @@ doRawQuery query = |> PreparedQuery |> map (Ok << Prelude.fromIntegral) Internal.Eval script -> - Database.Redis.eval (toB (Script.luaScript script)) (map toB (Script.paramNames script)) (map toB(Script.paramValues script)) + Database.Redis.eval (toB (Script.luaScript script)) (map toB (Script.paramNames script)) (map toB (Script.paramValues script)) |> PreparedQuery |> map Ok Internal.Exists key -> diff --git a/nri-redis/src/Redis/Internal.hs b/nri-redis/src/Redis/Internal.hs index 68191a69..5191bd9b 100644 --- a/nri-redis/src/Redis/Internal.hs +++ b/nri-redis/src/Redis/Internal.hs @@ -37,8 +37,8 @@ import qualified List import qualified Log.RedisCommands as RedisCommands import NriPrelude hiding (map, map2, map3) import qualified Platform -import qualified Redis.Settings as Settings import qualified Redis.Script as Script +import qualified Redis.Settings as Settings import qualified Set import qualified Text import qualified Tuple