WIP: Text: isSubsequenceOf: flip local fun

This way may have more stack reuse.
haskell · Sep 28, 2021 · 505ffd3 · 505ffd3
1 parent d4397a7
commit 505ffd3
Showing 1 changed file with 5 additions and 5 deletions.
diff --git a/src/Data/Text.hs b/src/Data/Text.hs
@@ -1891,14 +1891,14 @@ isSubsequenceOf tf sf
  where
   subseqOf :: Text -> Text -> Bool
   subseqOf t s =
-    on f uncons s t
+    on f uncons t s
    where
     f :: Maybe (Char, Text) -> Maybe (Char, Text) -> Bool
-    f Nothing _ = True
-    f _ Nothing = False
-    f (Just (sc,ss)) (Just (tc,ts)) =
+    f _ Nothing = True
+    f Nothing _ = False
+    f (Just (tc,ts)) (Just (sc,ss)) =
       subseqOf ts $
-        if sc == tc
+        if tc == sc
           then s
           else ss