refactor: remove unused all import (no more warnings)

src/Background.purs

@@ -30,7 +30,6 @@ import Data.Maybe (Maybe(..), fromMaybe, maybe, maybe')
 import Data.Monoid ((<>))
 import Data.Show (show)
 import Data.Unit (unit)
-import Debug.Trace (traceM)
 import Effect (Effect)
 import Effect.Aff (Aff, launchAff_)
 import Effect.Class (liftEffect)

src/Browser/Runtime.purs

@@ -2,10 +2,8 @@ module Browser.Runtime (Port, connect, onConnectAddListener, portOnDisconnect, p
 
 import Browser.Utils (mkListenerOne, Listener, UnregisteredListener)
 import Control.Alt (map)
-import Control.Bind ((=<<))
 import Control.Monad.Except (runExcept)
 import Data.Array (intercalate)
-import Data.Bifunctor (lmap)
 import Data.Either (Either(..))
 import Data.Eq (class Eq)
 import Data.Generic.Rep (class Generic)

src/Browser/Tabs/OnUpdated.purs

@@ -1,6 +1,6 @@
 module Browser.Tabs.OnUpdated where
 
-import Browser.Tabs (Tab(..), TabId(..))
+import Browser.Tabs (Tab, TabId)
 import Browser.Utils (Listener3, UnregisteredListener3, mkListenerThree, unwrapForeign)
 import Control.Alternative (pure)
 import Control.Bind ((>>=))

src/Sidebar/Components/Bar.purs

@@ -1,25 +1,20 @@
 module PureTabs.Sidebar.Bar where
 
 import Browser.Tabs (Tab(..), TabId)
-import Control.Alternative (class Functor, pure, (<$>))
+import Control.Alternative (pure)
 import Control.Bind (bind, discard, void, (<#>))
 import Data.Array ((:))
-import Data.Array as A
 import Data.Function (($))
-import Data.Map (insert, size)
 import Data.Map as M
 import Data.Maybe (Maybe(..))
 import Data.Set (toUnfoldable, Set) as S
-import Data.Set.NonEmpty (max, NonEmptySet, cons) as NES
+import Data.Set.NonEmpty (cons, max) as NES
 import Data.Symbol (SProxy(..))
 import Data.Tuple (Tuple(..))
 import Data.Unit (Unit, unit)
 import Effect.Aff.Class (class MonadAff)
 import Effect.Class (class MonadEffect)
-import Effect.Class.Console (log)
-import Halogen (ComponentHTML, get, liftEffect)
 import Halogen as H
-import Halogen.HTML (slot)
 import Halogen.HTML as HH
 import Halogen.HTML.Events as HE
 import Halogen.HTML.Properties as HP
@@ -29,7 +24,6 @@ import PureTabs.Sidebar.Tabs (Output(..))
 import PureTabs.Sidebar.Tabs as Tabs
 import Sidebar.Component.GroupName as GroupName
 import Sidebar.Utils (whenC)
-import Web.HTML.Event.EventTypes (offline)
 
 newtype GroupId
   = GroupId Int
@@ -55,6 +49,7 @@ data Action
   = UserSelectedGroup GroupId
   | UserRenameGroup GroupId String
   | UserCreatedGroup
+  | UserDeletedGroup GroupId
   | HandleTabsOutput GroupId Tabs.Output
 
 initialState :: forall i. i -> State
@@ -130,6 +125,7 @@ component =
             H.modify_ \s -> s { groups = M.update (\g -> Just $ g { name = newName }) gid s.groups }
          UserCreatedGroup -> do
            H.modify_ \s -> s { groups = M.insert (findNextGroupId $ M.keys s.groups) { name: "new group", pos: M.size s.groups } s.groups }
+         UserDeletedGroup gid -> pure unit
          HandleTabsOutput gid (TabsSidebarAction sbEvent) -> H.raise sbEvent
 
     where

src/Sidebar/Components/GroupName.purs

@@ -1,40 +1,23 @@
 module Sidebar.Component.GroupName (component, NewName) where
 
 
-import Control.Monad.Free (liftF)
-import Data.Foldable (elem)
-import Data.Maybe (Maybe(..))
+import Control.Category ((<<<))
+import Data.Maybe (Maybe(..), maybe)
 import Data.String.CodeUnits (length)
 import Data.Tuple.Nested ((/\))
 import Effect.Aff.Class (class MonadAff)
-import Effect.Class (liftEffect)
 import Halogen (liftEffect)
 import Halogen as H
-import Halogen.HTML (span, text)
 import Halogen.HTML as HH
-import Halogen.HTML.Core (ref)
-import Halogen.HTML.Events (onChange, onDoubleClick, onInput, onKeyUp)
 import Halogen.HTML.Events as HE
-import Halogen.HTML.Properties (autofocus, ref)
 import Halogen.HTML.Properties as HP
-import Halogen.Hooks (HookF(..), OutputToken, getHTMLElementRef, put, query, raise, subscribe', useTickEffect)
 import Halogen.Hooks as Hooks
-import Halogen.Query (getHTMLElementRef)
-import Halogen.Query as HQ
 import Halogen.Query.Input as HQI
-import Prelude (bind, const, discard, flap, liftM1, map, otherwise, pure, unit, ($), (<$>), (=<<), (==), (>=>), (>>>))
-import Web.Event.Event (target)
+import Prelude (bind, discard, otherwise, pure, unit, ($), (==))
 import Web.Event.Event as E
-import Web.Event.EventTarget (EventTarget)
 import Web.Event.EventTarget as ET
-import Web.HTML (window) as Web
-import Web.HTML.HTMLDocument as HTMLDocument
 import Web.HTML.HTMLElement (focus) as Web
-import Web.HTML.Window (document) as Web
-import Web.UIEvent.InputEvent (InputEvent, fromEvent)
-import Web.UIEvent.InputEvent as IE
 import Web.UIEvent.KeyboardEvent as KE
-import Web.UIEvent.KeyboardEvent.EventTypes as KET
 
 type NewName = String
 
@@ -79,7 +62,5 @@ component = Hooks.component \rec name -> Hooks.do
           HE.onDoubleClick \_ -> Just $ do 
              Hooks.put isRenamingIdx true 
              elem <- Hooks.getHTMLElementRef (HQI.RefLabel "input")
-             case elem of 
-                  Just elem -> liftEffect $ Web.focus elem
-                  _ -> pure unit
+             maybe (pure unit) (liftEffect <<< Web.focus) elem
         ] [HH.text chars]

src/Sidebar/Components/Tab.purs

@@ -1,32 +1 @@
 module PureTabs.Sidebar.Tab  where
-
-import Browser.Tabs (Tab(..))
-import Control.Category (identity)
-import Data.Const (Const(..))
-import Data.Function (const, ($))
-import Data.Show (show)
-import Data.Unit (Unit)
-import Data.Void (Void)
-import Halogen as H
-import Halogen.HTML as HH
-import Halogen.HTML.Events as HE
-import Halogen.HTML.Properties as HP
-
-
-{-- type State = Tab                                                  --}
-
-{-- component :: forall q i o m. State -> H.Component HH.HTML q i o m --}
-{-- component t =                                                     --}
-{--   H.mkComponent                                                   --}
-{--     { initialState: const t                                       --}
-{--     , render: render                                              --}
-{--     , eval: H.mkEval H.defaultEval                                --}
-{--     }                                                             --}
-
-{-- render :: forall m. State -> H.ComponentHTML Unit () m            --}
-{-- render (Tab t) =                                                  --}
-{--   HH.div                                                          --}
-{--     [ HP.id_ $ show t.id                                          --}
-{--     , HP.class_ (H.ClassName "tab")                               --}
-{--     ]                                                             --}
-{--     [ HH.text t.title ]                                           --}

src/Sidebar/Components/Tabs.purs

@@ -26,7 +26,6 @@ import Effect.Aff.Class (class MonadAff)
 import Effect.Class (class MonadEffect)
 import Effect.Class.Console (log)
 import Effect.Exception (error)
-import Halogen (liftEffect)
 import Halogen as H
 import Halogen.HTML as HH
 import Halogen.HTML.CSS as CSS