Cleanup/warnings (#53)

* implements error log reporting

* removes redundant imports

src/Application.hs

@@ -40,7 +40,7 @@ import           Network.Wai.Middleware.AcceptOverride
 import           Network.Wai.Middleware.Autohead
 import           Network.Wai.Middleware.Cors           (CorsResourcePolicy (..), cors, simpleCorsResourcePolicy)
 import           Network.Wai.Middleware.MethodOverride
-import           Network.Wai.Middleware.RequestLogger  (Destination (Logger), IPAddrSource (..), OutputFormat (..),
+import           Network.Wai.Middleware.RequestLogger  (Destination (Logger), OutputFormat (..),
                                                         destination, mkRequestLogger, outputFormat)
 import           System.IO                             (hSetBuffering, BufferMode (..))
 import           System.Log.FastLogger                 (defaultBufSize, newStdoutLoggerSet, toLogStr)

src/Handler/ErrorLogs.hs

@@ -5,7 +5,6 @@ module Handler.ErrorLogs where
 import           Control.Monad                  ( MonadFail(fail) )
 import           Data.Aeson                     ( (.:)
                                                 , FromJSON(parseJSON)
-                                                , eitherDecode
                                                 , withObject
                                                 , withText
                                                 )
@@ -25,8 +24,6 @@ data ErrorLog = ErrorLog
     }
     deriving (Eq, Show)
 
--- >>> eitherDecode "{ \"log-epoch\": \"1234\", \"log-message\": \"This is the famous budweiser beer\" }" :: Either String ErrorLog
--- Variable not in scope: eitherDecode :: t0 -> Either String ErrorLog
 instance FromJSON ErrorLog where
     parseJSON = withObject "Error Log" $ \o -> do
         errorLogEpoch <- o .: "log-epoch" >>= withText

src/Handler/Icons.hs

@@ -9,25 +9,19 @@ module Handler.Icons where
 
 import           Startlude               hiding ( Handler )
 
-import           Data.Conduit
-import qualified Data.Conduit.Combinators as CB
-import           System.Directory
 import           Yesod.Core
 
-import           Foundation
-import           Lib.Registry
-import           Settings
-import           System.FilePath ((</>))
-import Util.Shared
-import Lib.External.AppMgr
-import Lib.Error
-import Data.Conduit.Process
-import Conduit
-import qualified Data.ByteString.Lazy as BS
-import Network.HTTP.Types
-import Lib.Types.AppIndex
 import           Data.Aeson
+import qualified Data.ByteString.Lazy          as BS
+import           Foundation
+import           Lib.Error
+import           Lib.External.AppMgr
+import           Lib.Registry
+import           Lib.Types.AppIndex
+import           Network.HTTP.Types
+import           Settings
 import           System.FilePath.Posix
+import           Util.Shared
 
 data IconType = PNG | JPG | JPEG | SVG
     deriving (Eq, Show, Generic, Read)