appInstancePred :: [ByteString] -> (Match,[ByteString])
appInstancePred (ln:lns) = if ln =~ (pack "instance Applicative")
                           then let match = ln : Prelude.take 2 lns in
                                  (match, Prelude.drop 2 lns)
                           else ([], lns)
appInstancePred :: [ByteString] -> (Match,[ByteString])
appInstancePred (ln:lns) = if ln =~ (pack "instance Applicative")
                           then let match = ln : Prelude.take 2 lns in
                                  (match, Prelude.drop 2 lns)
                           else ([], lns)
appInstancePred (ln:lns) = if ln =~ (pack "instance Applicative")
                           then let match = ln : Prelude.take 2 lns in
                                  (match, Prelude.drop 2 lns)
                           else ([], lns)