clean up imports

ArdanaLabs · Aug 30, 2022 · 001faa7 · 001faa7
1 parent 61a28f9
commit 001faa7
Show file tree

Hide file tree

Showing 3 changed files with 25 additions and 9 deletions.
diff --git a/app/Main.hs b/app/Main.hs
@@ -1,5 +1,10 @@
 import Network.Wai.Handler.Warp
-import System.IO
+  (setBeforeMainLoop
+  ,setPort
+  ,defaultSettings
+  ,runSettings
+  )
+import System.IO(hPutStrLn,stderr)
 import Lib (secretKey,putEdKey,Id (Id), Label (Label),Domains(Domains) )
 import Data.String (IsString(fromString))
 import Api(app)

diff --git a/src/Api.hs b/src/Api.hs
@@ -1,9 +1,21 @@
 module Api(app,SignApi) where
 
-import Data.Aeson
-import GHC.Generics
-import Network.Wai
+import Data.Aeson(ToJSON,FromJSON)
+import GHC.Generics(Generic)
 import Servant
+  ((:<|>)((:<|>))
+  ,(:>)
+  ,Application
+  ,Get
+  ,Handler
+  ,JSON
+  ,PlainText
+  ,Post
+  ,Proxy(Proxy)
+  ,ReqBody
+  ,Server
+  ,serve
+  )
 import Control.Monad.IO.Class (MonadIO(liftIO))
 import Lib (signWithEdKey, Id (Id),getPubKey)
 import Hex(fromHex,toHex)

diff --git a/src/Lib.hs b/src/Lib.hs
@@ -1,15 +1,15 @@
 module Lib
-  (helloWorld
+  (Id(Id)
+  ,Label(Label)
+  ,Domains(Domains)
+  ,helloWorld
   ,publicKey
   ,secretKey
   ,putEdKey
   ,signature
   ,signWithEdKey
   ,getPubKey
   ,message
-  ,Id(Id)
-  ,Label(Label)
-  ,Domains(Domains)
   ) where
 
 import Foreign.C.Types (CUShort(..), CSize(..), CBool (CBool))
@@ -90,4 +90,3 @@ getPubKey (Id i) isTesting =
     get_public_key (CUShort i) outputBuffer (CBool isTestingWord)
     B.packCStringLen (outputBuffer, keySize)
 
-