Просмотр исходного кода

Remove remaining debug trace call

jherve 1 год назад
Родитель
Сommit
f8ab619e6c
1 измененных файлов с 1 добавлено и 2 удалено
  1. 1 2
      src/LinkedIn/Utils.purs

+ 1 - 2
src/LinkedIn/Utils.purs

@@ -7,7 +7,6 @@ import Data.List.NonEmpty (NonEmptyList)
 import Data.List.NonEmpty as NEL
 import Data.Maybe (Maybe(..), fromJust)
 import Data.Traversable (sequence)
-import Debug (trace)
 import Effect (Effect)
 import LinkedIn (DetachedNode, toDetached)
 import LinkedIn.Types (ParseError(..), Parser)
@@ -27,7 +26,7 @@ toParentNode' n =
 
 queryOne :: String -> Node -> Effect (Maybe Node)
 queryOne selector n = do
-  found <- trace selector \_ -> querySelector (QuerySelector selector) $ toParentNode' n
+  found <- querySelector (QuerySelector selector) $ toParentNode' n
   pure case found of
     Nothing -> Nothing
     Just el -> Just $ E.toNode el