reduce indentation level in MakeDfaLoop functors a bit, by performing 'strIdx = ...' calculation before we branch in case expression

fcore/cursor-dfa/make-dfa-loop.sml

@@ -9,23 +9,22 @@ struct
   fun next (lineGap: LineGap.t, cursorIdx) =
     let
       val {rightStrings, idx = bufferIdx, ...} = lineGap
-    in
-      case rightStrings of
-        shd :: stl =>
-          let
       (* convert absolute cursorIdx to idx relative to hd string *)
       val strIdx = cursorIdx - bufferIdx
     in
+      case rightStrings of
+        shd :: stl =>
           if strIdx < String.size shd then
             (* strIdx is in this string *)
             M.fStart (strIdx, cursorIdx, shd, stl, M.startState, 1)
           else
             (* strIdx is in tl *)
-              case stl of
+            (case stl of
                stlhd :: stltl =>
-                  M.fStart (strIdx, cursorIdx, stlhd, stltl, M.startState, 1)
-              | _ => cursorIdx
+                 let val strIdx = strIdx - String.size shd
+                 in M.fStart (strIdx, cursorIdx, stlhd, stltl, M.startState, 1)
                  end
+             | _ => cursorIdx)
       | [] => cursorIdx
     end
 end
@@ -35,13 +34,11 @@ struct
   fun prev (lineGap: LineGap.t, cursorIdx) =
     let
       val {rightStrings, leftStrings, idx = bufferIdx, ...} = lineGap
-    in
-      case rightStrings of
-        shd :: stl =>
-          let
       (* convert absolute cursorIdx to idx relative to hd string *)
       val strIdx = cursorIdx - bufferIdx
     in
+      case rightStrings of
+        shd :: stl =>
           if strIdx < String.size shd then
             (* strIdx is in this string *)
             M.fStart (strIdx, cursorIdx, shd, leftStrings, M.startState, 1)
@@ -57,7 +54,6 @@ struct
                      (strIdx, cursorIdx, stlhd, leftStrings, M.startState, 1)
                  end
              | [] => cursorIdx)
-          end
       | [] => cursorIdx
     end
 end