@@ -227,13 +227,13 @@ partialComposeD (Stream step state) = Stream step' (ComposeNone state)
227 Stop -> Skip $ YieldList rbuf ComposeStop
227 Stop -> Skip $ YieldList rbuf ComposeStop
229 {-# INLINE initHangul #-}
229 {-# INLINE initHangul #-}
230− initHangul c st = ComposeJamo (Hangul c) st
230+ initHangul c = ComposeJamo (Hangul c)
232 {-# INLINE initJamo #-}
232 {-# INLINE initJamo #-}
233− initJamo c st = ComposeJamo (Jamo c) st
233+ initJamo c = ComposeJamo (Jamo c)
235 {-# INLINE initReg #-}
235 {-# INLINE initReg #-}
236− initReg !c st = ComposeReg 0 [c] st
236+ initReg !c = ComposeReg 0 [c]
238 {-# INLINE composeNone #-}
238 {-# INLINE composeNone #-}
239 composeNone ch st
239 composeNone ch st