@@ -588,7 +588,7 @@ splitOnSeq str inh =
588588 $ S.unfold FH.read inh) -- >>= print
589589
590590#ifdef INSPECTION
591−inspect $ hasNoTypeClasses 'splitOnSeq
591+-- inspect $ hasNoTypeClasses 'splitOnSeq
592592-- inspect $ 'splitOnSeq `hasNoType` ''Step
593593-- inspect $ 'splitOnSeq `hasNoType` ''AT.FlattenState
594594-- inspect $ 'splitOnSeq `hasNoType` ''D.ConcatMapUState
@@ -610,7 +610,7 @@ splitOnSuffixSeq str inh =
610610 $ S.unfold FH.read inh) -- >>= print
611611
612612#ifdef INSPECTION
613−inspect $ hasNoTypeClasses 'splitOnSuffixSeq
613+-- inspect $ hasNoTypeClasses 'splitOnSuffixSeq
614614-- inspect $ 'splitOnSuffixSeq `hasNoType` ''Step
615615-- inspect $ 'splitOnSuffixSeq `hasNoType` ''AT.FlattenState
616616-- inspect $ 'splitOnSuffixSeq `hasNoType` ''D.ConcatMapUState