lint source files.

Author: KtorZ

server/src/Ogmios/App/Protocol/StateQuery.hs

@@ -55,6 +55,9 @@ import Data.Aeson
     ( ToJSON (..)
     , genericToEncoding
     )
+import Ogmios.Control.MonadDisk
+    ( MonadDisk
+    )
 import Ogmios.Control.MonadLog
     ( HasSeverityAnnotation (..)
     , Logger
@@ -97,7 +100,6 @@ import Ouroboros.Network.Protocol.LocalStateQuery.Client
 import Ouroboros.Network.Protocol.LocalStateQuery.Type
     ( Target (..)
     )
-import Ogmios.Control.MonadDisk (MonadDisk)
 
 import qualified Codec.Json.Rpc as Rpc
 import qualified Data.Aeson as Json

server/test/unit/Ogmios/App/Protocol/StateQuerySpec.hs

@@ -49,12 +49,12 @@ import Ogmios.Control.Exception
     ( MonadCatch (..)
     , MonadThrow (..)
     )
-import Ogmios.Control.MonadDisk
-    ( MonadDisk (..)
-    )
 import Ogmios.Control.MonadAsync
     ( race
     )
+import Ogmios.Control.MonadDisk
+    ( MonadDisk (..)
+    )
 import Ogmios.Control.MonadLog
     ( MonadLog
     , nullTracer

server/test/unit/Test/App/Protocol/Util.hs

@@ -26,7 +26,8 @@ import Control.Monad.Class.MonadTimer
     ( MonadDelay
     )
 import Control.Monad.IOSim
-    ( runSimOrThrow
+    ( IOSim
+    , runSimOrThrow
     )
 import Ogmios.Control.Exception
     ( MonadCatch (..)
@@ -35,15 +36,15 @@ import Ogmios.Control.Exception
 import Ogmios.Control.MonadAsync
     ( race
     )
+import Ogmios.Control.MonadDisk
+    ( MonadDisk
+    )
 import Ogmios.Control.MonadLog
     ( MonadLog
     )
 import Ogmios.Control.MonadOuroboros
     ( MonadOuroboros
     )
-import Ogmios.Control.MonadDisk
-    ( MonadDisk
-    )
 import Ogmios.Control.MonadSTM
     ( MonadSTM (..)
     , newTQueue
@@ -70,9 +71,6 @@ import Test.QuickCheck.Monadic
     , pick
     , run
     )
-import Control.Monad.IOSim
-    ( IOSim
-    )
 
 import qualified Codec.Json.Rpc as Rpc
 import qualified Data.Aeson as Json