1. Bryan O'Sullivan
  2. text

Commits

Bryan O'Sullivan  committed dc93e96

Tidy up white space

  • Participants
  • Parent commits 82e332d
  • Branches default

Comments (0)

Files changed (1)

File Data/Text/Fusion.hs

View file
  • Ignore whitespace
       end = off+len
       {-# INLINE next #-}
       next !i
-          | i >= end = Done
+          | i >= end                   = Done
           | n >= 0xD800 && n <= 0xDBFF = Yield (U16.chr2 n n2) (i + 2)
-          | otherwise = Yield (unsafeChr n) (i + 1)
+          | otherwise                  = Yield (unsafeChr n) (i + 1)
           where
             n  = A.unsafeIndex arr i
             n2 = A.unsafeIndex arr (i + 1)