Remove more useless code

src/LinkedIn/Utils.purs

@@ -1,23 +1,16 @@
-module LinkedIn.Utils where
+module LinkedIn.Utils (queryOne, queryAll) where
 
 import Prelude
 
-import Data.Array as A
-import Data.Either (Either(..), note)
-import Data.List as L
 import Data.List.NonEmpty (NonEmptyList)
 import Data.List.NonEmpty as NEL
 import Data.Maybe (Maybe(..), fromJust)
-import Data.Traversable (sequence, traverse)
 import Effect (Effect)
-import LinkedIn (DetachedNode(..), toDetached)
-import LinkedIn.Types (ParseError(..), Parser)
 import Partial.Unsafe (unsafePartial)
 import Web.DOM (Node, ParentNode)
 import Web.DOM.Element as E
-import Web.DOM.Node as N
 import Web.DOM.NodeList as NL
-import Web.DOM.ParentNode (QuerySelector(..), children, querySelector, querySelectorAll)
+import Web.DOM.ParentNode (QuerySelector(..), querySelector, querySelectorAll)
 
 toParentNode' :: Node -> ParentNode
 toParentNode' n =
@@ -38,44 +31,3 @@ queryAll :: String -> Node -> Effect (Maybe (NonEmptyList Node))
 queryAll selector n = do
   found <- querySelectorAll (QuerySelector selector) $ toParentNode' n
   liftA1 NEL.fromFoldable $ NL.toArray found
-
-parseDetachedNode :: Parser DetachedNode
-parseDetachedNode node = do
-  node' <- toDetached node
-  pure $ Right node'
-
-queryAndDetachOne ∷ String -> Parser DetachedNode
-queryAndDetachOne selector n = queryOneAndParse selector parseDetachedNode n
-
-queryAndDetachMany ∷ String -> Parser (NonEmptyList DetachedNode)
-queryAndDetachMany selector n = queryManyAndParse selector parseDetachedNode n
-
-queryOneAndParse ∷ ∀ a. String → Parser a → Parser a
-queryOneAndParse selector parser n = do
-  selected <- queryOne selector n
-
-  case selected of
-    Nothing -> pure $ Left $ NodeNotFoundError selector
-    Just node -> parser node
-
-queryManyAndParse ∷ ∀ a. String → Parser a → Parser (NonEmptyList a)
-queryManyAndParse selector parser n = do
-  selected <- queryAll selector n
-  case selected of
-    Nothing -> pure $ Left $ NodeListNotFoundError selector
-    Just nodes -> do
-      nodes' <- sequence $ map parser nodes :: Effect (NonEmptyList((Either ParseError a)))
-      pure $ sequence nodes'
-
-detachNonEmptyTextChild :: Parser DetachedNode
-detachNonEmptyTextChild n = do
-  children <- N.childNodes n
-  childrenArr <- NL.toArray children
-  detached <- traverse parseDetachedNode childrenArr
-  
-  case A.find nonEmptyTextElement detached of
-    Nothing -> pure $ Left TextNotFoundError
-    Just c -> pure $ c
-  where 
-    nonEmptyTextElement (Right (DetachedText t)) | t /= "" = true
-    nonEmptyTextElement _ = false