Jocelyn Boullier 5 лет назад
Родитель
Сommit
4bd98686aa
2 измененных файлов с 6 добавлено и 11 удалено
  1. 6 8
      src/Model.purs
  2. 0 3
      src/Sidebar/Components/Tabs.purs

+ 6 - 8
src/Model.purs

@@ -26,11 +26,10 @@ module PureTabs.Model
   ) where
 
 import Browser.Runtime (Port)
-import Browser.Tabs (TabId(..), WindowId, Tab(..))
-import Browser.Tabs.OnUpdated (ChangeInfo(..))
-import Control.Alternative (empty)
+import Browser.Tabs (Tab(..), TabId, WindowId)
+import Browser.Tabs.OnUpdated (ChangeInfo)
 import Control.Bind (join)
-import Control.Category ((>>>), (<<<))
+import Control.Category ((<<<))
 import Control.Plus (empty) as A
 import Data.Array (sortBy, singleton, fromFoldable) as A
 import Data.Eq ((==))
@@ -42,15 +41,14 @@ import Data.Lens (Lens', Traversal', _Just, view)
 import Data.Lens.At (at)
 import Data.Lens.Iso.Newtype (_Newtype)
 import Data.Lens.Record (prop)
-import Data.List (List(..), head, groupBy) as L
-import Data.List.NonEmpty (head, NonEmptyList, toList) as NEL
+import Data.List (List, groupBy, head) as L
+import Data.List.NonEmpty (NonEmptyList, head) as NEL
 import Data.Map as M
 import Data.Maybe (Maybe(..), fromMaybe)
 import Data.Ord (compare)
 import Data.Show (class Show)
 import Data.Symbol (SProxy(..))
-import Data.Tuple (Tuple(..), fst, snd, uncurry)
-import Data.Tuple.Nested ((/\))
+import Data.Tuple (Tuple(..))
 
 type GlobalState
   = { windows :: M.Map WindowId ExtWindow

+ 0 - 3
src/Sidebar/Components/Tabs.purs

@@ -29,9 +29,6 @@ import Halogen as H
 import Halogen.HTML as HH
 import Halogen.HTML.CSS as CSS
 import Halogen.HTML.Events as HE
-import Halogen.HTML.Properties (class_)
-import Halogen.HTML.Properties (class_, classes)
-import Halogen.HTML.Properties (class_, classes)
 import Halogen.HTML.Properties as HP
 import Prelude (sub, negate)
 import PureTabs.Model (SidebarEvent(..), _tabs)