Skip to content
Browse files

#94, speculative GHC 7.8 support

1 parent e2bdc47 commit 17257f19a668bc13297e5b8bf95cc8c49dec01dc @ndmitchell committed
Showing with 2 additions and 2 deletions.
  1. +2 −2 Development/Ninja/Lexer.hs
View
4 Development/Ninja/Lexer.hs
@@ -44,7 +44,7 @@ break0 f (Str0 bs) = (BS.unsafeTake i bs, Str0 $ BS.unsafeDrop i bs)
return $! Ptr end `minusPtr` start
go s@(Ptr a) | c == '\0' || f c = a
- | otherwise = go $ inc s
+ | otherwise = go (inc s)
where c = chr s
{-# INLINE break00 #-}
@@ -58,7 +58,7 @@ break00 f (Str0 bs) = (BS.unsafeTake i bs, Str0 $ BS.unsafeDrop i bs)
return $! Ptr end `minusPtr` start
go s@(Ptr a) | f c = a
- | otherwise = go $ inc s
+ | otherwise = go (inc s)
where c = chr s
head0 :: Str0 -> Char

0 comments on commit 17257f1

Please sign in to comment.
Something went wrong with that request. Please try again.