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