Fix some compiler warnings

HeinrichApfelmus · Feb 8, 2024 · c90d6bd · c90d6bd
1 parent 217a680
commit c90d6bd
Show file tree

Hide file tree

Showing 5 changed files with 4 additions and 8 deletions.
diff --git a/src/Foreign/JavaScript/Include.hs b/src/Foreign/JavaScript/Include.hs
@@ -1,7 +1,6 @@
 {-# LANGUAGE TemplateHaskell, CPP #-}
 module Foreign.JavaScript.Include (include) where
 
-import           Data.Functor
 import           Data.FileEmbed      (makeRelativeToProject)
 import           Language.Haskell.TH
 import           System.IO

diff --git a/src/Foreign/JavaScript/Marshal.hs b/src/Foreign/JavaScript/Marshal.hs
@@ -19,7 +19,6 @@ import qualified Data.Aeson.Encode      as JSON   (encodeToTextBuilder)
 #else
 import qualified Data.Aeson.Text        as JSON   (encodeToTextBuilder)
 #endif
-import           Data.Functor                     ((<$>))
 import           Data.List                        (intercalate)
 import qualified Data.Text              as T
 import qualified Data.Text.Lazy

diff --git a/src/Foreign/JavaScript/Server.hs b/src/Foreign/JavaScript/Server.hs
@@ -4,7 +4,6 @@ module Foreign.JavaScript.Server (
     ) where
 
 -- import general libraries
-import           Control.Applicative
 import           Control.Concurrent
 import           Control.Concurrent.Async
 import           Control.Concurrent.STM     as STM

diff --git a/src/Foreign/JavaScript/Types.hs b/src/Foreign/JavaScript/Types.hs
@@ -1,16 +1,13 @@
 {-# LANGUAGE OverloadedStrings, DeriveDataTypeable #-}
 module Foreign.JavaScript.Types where
 
-import           Control.Applicative
 import qualified Control.Exception       as E
 import           Control.Concurrent.STM  as STM
-import           Control.Concurrent.Chan as Chan
 import           Control.Concurrent.MVar
 import           Control.DeepSeq
 import           Data.Aeson              as JSON
 import           Data.ByteString.Char8           (ByteString)
 import qualified Data.ByteString.Char8   as BS   (hPutStrLn)
-import           Data.IORef
 import           Data.Map                as Map
 import           Data.String
 import           Data.Text
@@ -167,6 +164,8 @@ data Server = Server
     , sLog   :: ByteString -> IO () -- function for logging
     }
 type Filepaths = (Integer, Map ByteString (FilePath, MimeType))
+
+newFilepaths :: Filepaths
 newFilepaths = (0, Map.empty)
 
 {-----------------------------------------------------------------------------
@@ -233,7 +232,8 @@ instance ToJSON ServerMsg where
     toJSON (RunEval  x) = object [ "tag" .= t "RunEval" , "contents" .= toJSON x]
     toJSON (CallEval x) = object [ "tag" .= t "CallEval", "contents" .= toJSON x]
 
-t s = fromString s :: Text
+t :: String -> Text
+t s = fromString s
 
 writeServer :: Comm -> ServerMsg -> STM ()
 writeServer c = writeComm c . toJSON . force

diff --git a/src/Foreign/RemotePtr.hs b/src/Foreign/RemotePtr.hs
@@ -19,7 +19,6 @@ import Prelude hiding (lookup)
 import Control.Monad
 import qualified Data.Text             as T
 import qualified Data.HashMap.Strict   as Map
-import Data.Functor
 import Data.IORef
 
 import           System.Mem.Weak          hiding (addFinalizer)