Update stack snapshot to lts-15.1

src/QBar/Cli.hs

@@ -10,7 +10,7 @@ import QBar.DefaultConfig
 import QBar.Server
 import QBar.Theme
 
-import Control.Monad (join, sequence_)
+import Control.Monad (join)
 import qualified Data.Text.Lazy as T
 import Options.Applicative
 

src/QBar/ControlSocket.hs

@@ -18,13 +18,10 @@ import Control.Concurrent (forkFinally)
 import Control.Concurrent.Async
 import Data.Aeson (FromJSON, ToJSON)
 import Data.Aeson.TH
-import Data.ByteString (ByteString)
 import qualified Data.ByteString.Char8 as BSC
 import System.FilePath ((</>))
 import System.IO
-import Data.Either (either)
-import Data.Maybe (maybe)
-import Data.Text.Lazy (Text, pack)
+import Data.Text.Lazy (pack)
 import qualified Data.Text.Lazy as T
 import Network.Socket
 import Pipes
@@ -220,7 +217,8 @@ listenUnixSocket options@MainOptions{verbose} bar commandHandler = do
   socketExists <- doesFileExist socketPath
   when socketExists $ removeFile socketPath
   sock <- socket AF_UNIX Stream defaultProtocol
-  setCloseOnExecIfNeeded $ fdSocket sock
+  -- TODO: unsafe probably not what we want
+  setCloseOnExecIfNeeded =<< unsafeFdSocket sock
   bind sock (SockAddrUnix socketPath)
   listen sock 5
   forever $ do

src/QBar/TagParser.hs

@@ -4,9 +4,7 @@ import QBar.BlockOutput
 import QBar.Color
 
 import Control.Applicative ((<|>))
-import Control.Monad (void)
 import Data.Attoparsec.Text.Lazy as A
-import Data.Either (either)
 import Data.Functor (($>))
 import Data.Maybe (catMaybes)
 import qualified Data.Text as TS

stack.yaml

@@ -17,7 +17,7 @@
 #
 # resolver: ./custom-snapshot.yaml
 # resolver: https://example.com/snapshots/2018-01-01.yaml
-resolver: lts-14.20
+resolver: lts-15.1
 
 # User packages to be built.
 # Various formats can be used as shown in the example below.